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I. INTRODUCTION 



Simulating an aircraft flight path requires a great deal of informa- 
tion. This information usually includes position and velocity as a 
function of time. More detailed descriptions may require heading, climb, 
and roll angles, as well as velocity components in one or more coordinate 
systems. Additionally, the simulation will have constraints on the 
aircraft's performance, such as G load and power available. Finally, the 
simulation will have certain aspects of aircraft utilization such as 
altitude or approach limits, which it tests. These might relate to a 
bombing mission, transcontinental passenger service, or an encounter with 
an anti-aircraft system. Although real-time flight path simulation is 
necessary in the final stages of a system's development, the use of 
simple, pre-defined flight paths in the early design phases is still a 
helpful tool. 

Generating the information for these flight paths is an excellent 
application of the capabilities of the digital computer. Given a few 
broad parameters, the computer can generate and properly format the other 
information the particular simulation requires. The alternative is the 
time-consuming and error-prone process of having the simulation user 
determine and properly enter all of the data needed for the simulation. 

To further aid the user, a graphic capability is desirable. It is 
much simpler for a user to decide upon a flight path if he can see where 
he is flying. In addition, cursor-mapped input reduces the chances of 
incorrectly typing in parameters. 
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There are two simulation programs at the Naval Postgraduate School 
which require pre-defined aircraft flight paths as input data. They are 
the Air Force Armament Laboratory's Anti-Aircraft Artillery (AAA) Simula- 
tion (called P001) and the Vought Corporation's surface-to-air missile 
(SAM) engagement simulation (called MICE II). Both programs are used by 
the military aircraft industry, being specifically called for in Reference 1. 
Both programs are used in the Naval Postgraduate School course in aircraft 
survivability (AE 3251) as tools for gaining an understanding of the 
factors affecting aircraft survivability in a hostile AAA and SAM environ- 
ment. The students are required to fly a bombing mission against a 
target defended by seven AAA weapons, one which has a fixed location, and 
one SAM site. They are formed into teams of two, and each team plots a 
flight path and selects defensive positions. One team then flies its 
route against an opposing team's weapons, and vice versa. 

At the present time, P001 and MICE II are implemented for batch 
processing on the school's IBM 3033 computer, having been converted from 
the IBM 360 system in 1980. The input to both programs requires a 
significant amount of formatted data, the entry of which is time-consuming, 
tedious, and error-prone. To alleviate part of this problem, a pre- 
processing program called PIP (P001 Input Processor) was written in 1978. 

This program required that the operator enter only the milestone X, Y, 
and Z coordinates, an initial speed, and control indicators for the type 
of output desired. It too was written for the IBM 360 system batch mode. 

It was converted to the new 3033 system in 1981, but was not re-written. 

With the improved time-sharing capabilities of the 3033 system, it 
was desirable to make PIP interactive. A significant problem of the 
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batch system was the requirement to submit a complete flight path to PIP 
for evaluation with respect to aircraft performance and mission rules. 

PIP evaluated the milestones and indicated which ones were outside the 
allowable limits of the parameters. The student then had to change the 
milestones that were causing the problems and hope that the corrections 
did not affect the points that were not changed. Since the run often 
generated punched cards for P001 and MICE, a great deal of waste occurred. 
Another problem was that the user had to plot the points on a map, copy 
them to a piece of paper, and then type or punch them in using the proper 
FORTRAN format. This was extremely tedious and sensitive to typing 
errors . 

The major goal of this thesis effort was to alleviate these problems 
through the use of an interactive, graphics capability. The availability 
of TEKTRONIX and IBM graphics terminals and software, and the IBM 3033 
CMS made this possible. Using a graphic terminal, the user is presented 
with a map of an attack scenario. A cursor is used to input the hostile 
AAA and SAM locations. The cursor is also used to input the aircraft 
milestone position and velocity. As each milestone is entered, the 
flight parameters are computed and checked against flight (maximum 
velocity, G loading, etc.) and simulation (bomb drop distance, pop-up 
maneuver, etc.) constraints for validity. Milestones which do not meet 
the constraints are rejected, the user is informed of the error, and a 
new milestone is requested. At any time up to the final milestone 
the user may reset the problem to any previous point. The user may also 
input data from an existing file to re-run a previous trial. When the 
final milestone is identified, the operator is given the option of 
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generating P001 and MICE input data files, or no file at all. In addition, 
the gun, SAM, and f 1 i ght path data are saved for later use. 

A secondary goal was that of software transportability. The intention 
is to make the programs available to the survivability community. To 
support this goal, a modular design was used. Routines which were 
software or hardware dependent were modularized for ease of replacement. 
Requirements unique to the user (simulation rules, vulnerability tables, 
etc.) were also modularized. This modularization allowed the creation of 
a non-graphic version that would work at any keyboard terminal. 

The main body of this thesis will describe the functions of the 
various modules. This will include a description of parameters passed 
and common blocks required. 
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II. APPROACH 



A. GOALS 

As stated above, the problem was approached with two goals in mind: 
ease of interaction and transportability. Ease of interaction meant that 
the system should require minimum interaction from the user while provid- 
ing rapid feedback to required inputs. Transportability meant that users 
on other systems could easily convert the program to their systems. 

To support the goal of simple interaction, a graphics capability was 
felt to be vital. This would allow the user to get a much better feel 
for the data he was creating. In addition, the burden of formatting and 
copying would be eliminated. Once the data has been input, the program 
must be prompt in providing feedback as to its validity. A major concern 
in interactive systems is the response time. For direct data input, a 
response time of less than one second is desirable. For inputs requiring 
further computation, two to three seconds is an adequate time. For 
complicated actions, such as drawing a map, responses on the order of 
minutes is appropriate. These times are primarily based on the human 
willingness to accept delay. 

To meet the requirements of transportability, several changes to 
PIP were necessary. To support different hardware and software configur- 
ations, any section which relied on specific system characteristics had 
to be isolated for easy replacement. This applied particularly to the 
graphics sections, which presently require either the TEKTRONIX 4010 
family of terminals and PLOT-10 software, or IBM graphic terminals and 
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GRAF77 software. By isolating these modules in FORTRAN subroutines, the 
system will operate with other graphic systems if the appropriate software 
is changed. By eliminating the graphic commands, the system can be 
converted to run on any keyboard terminal . 

Another area where changes are needed is in the sections dealing 
with simulation rules. The rules presently included are those which 
support the Naval Postgraduate School aircraft survivability course. The 
flight parameters are computed from the user input of position and 
velocity. Other users may desire to incorporate more or less sophis- 
ticated rules and parameter computation to better meet their needs. To 
accomplish this, two subroutines and the BLOCK DATA must be chanqed. 

B. METHODOLOGY 

In planning the program, the basic logic sequence was first outlined. 
This allowed the preliminary definition of the various modules. A module 
was created any time a function either occurred more than once, or 
required implementation unique to a particular system. For example, the 
ability to read position coordinates was needed several times, so the 
module XYZIN was written. Similarly, providing information to the user 
to assist in aligning his flight path properly for a bomb run occurs in 
only one location, but the manner in which the data is displayed depends 
on the type of terminal being used. 

Once the modules were defined, it was possible to determine which 
data would be shared between them. When several modules required the 
same data, or a parameter list would be extremely long, a global data set 
was created to pass the information. 
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Finally, the system was implemented with a top-down approach. 

Stubs were used by higher level modules until lower level modules could 
be written and tested. This approach reduced the code that had to be 
checked after a particular test when an error was discovered. 
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III. FUNCTIONAL DESCRIPTION 



A. DATA SETS 

1 . Internal Sets 

a. Screen Window Defined 

This data set must contain the coordinates of the various 
screen windows which the program will use. 

b. Target Definition 

This data set contains the virtual screen coordinates of 

the target. 

c. Options List 

This data set contains the variables necessary to transmit 
user options throughout the program. 

d. Flight Parameter List 

This data set contains the variables which define the flight 

path . 

e. Simulation Parameter List 

This data set contains the variables which are the constraints 
on aircraft performance that the user wishes to incorporate. 

f. Coordinate List 

This data set contains the variables associated with the 
user's entry of milestones. 

g. Error Message Pointer 

This data set contains the information necessary to locate 
the error messages. 
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2. External Sets 



a. Weapon Locations 

This data set contains the location of the hostile weapon 

sites . 

b. Map File 

This data set contains the X/Y coordinate pairs and 
instruction markers for drawing the attack scenario map. 

c. Milestone File 

This data set contains the X, Y, and Z coordinates, velocity, 
and option commands for each milestone of the flight path. 

d. Output File 

There is a separate file for each simulation for which the 
program provides data. In addition, a scratch file is maintained in case 
of system failures. 

e. Rule File 

This file saves the simulation constraints to allow the user 
to rapidly change the entire set of constraints. 

B. MODULES 
1. MAIN 

This module is the sequence control routine and is invoked 
on program load. The module calls BEGIN to request the user's options. 

It then calls SCENE to draw the scenario. Based on user response during 
initialization, the module then establishes the weapon locations by 
reading a disk file, using a default set, or having the user enter them 
at the terminal. If the terminal input option is selected, the old 
weapon site file is erased and the new values are placed in it. MAIN 
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then accepts data for the aircraft flight path milestones. The user 
decides during initialization whether the data will come from a disk file 

or the terminal and whether or not errors will cause the inputs to be 

rejected. Once the data for each milestone is read, the flight parameters 

are computed in the VALSET module and checked for errors in the ERRCHK 

module. Errors are identified to the user and the data is rejected if 
the user so indicated. If no errors occur, or if they are being iqnored, 
the module calls the PTHPLT module to draw the current leg. When using 
the terminal to enter the milestone data, the user may, at any point 
before the final milestone, reset the flight path to a previous point and 
begin from there to enter new data. If the input disk file has a continu- 
ation command, the program will shift from the disk input mode to the 
terminal input mode. Once the final entry is indicated, MAIN calls the 
ELFIN module to obtain the user's output options and then calls the 
PRESET module to implement them. 

2. VALSET 

VALSET is the module responsible for computation of those 
parameters required by the main simulation programs but not provided by 
the user. It contains the equations necessary for the computation of 
those parameters. The module can also indicate an error when the user's 
data causes a condition which will be undefined, such as inputs which 
cause a division by zero. 

3. ERRCHK 

This module contains the rules that the user wishes the flight 
path to obey. These include constraints on flight performance (thrust, 
acceleration, etc.) and rules particular to the mission (approach rules. 
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bomb release limits, etc.). A violation returns an error code identifying 
the rule that was violated. 

4. PTHPLT 

This is the module responsible for notifying the user that the 
data entered met all the constraints and has been accepted. It also 
saves the user's input in a scratch file to protect against system 
crashes . 

5. SPOT 

This module is the actual interface between the user and the 
computer for entering position data. It obtains two positions (X and Y) 
and two command inputs from the user and transmits them to the program. 

The calling routine is responsible for properly interpreting the X and Y 
values. 

6. SCENE 

SCENE is responsible for drawing the graphic displays needed by 
the program. Data for the map is read from the map file. The data is 
either a move or stop command or an X/Y pair indicating where the beam is 
to be positioned. The module also has a role in the reset sequence. 

When a reset procedure is executed by MAIN, it passes the information to 
SCENE. SCENE then prompts the user to indicate which milestone is the 
last one he wishes to retain. This value is returned to MAIN. 

7. WIN 

This module is responsible for defining a window on the screen. 

The module is provided with the screen coordinates desired and the 
virtual range that the window represents. The lower left corner is 
always given a virtual value of (0,0). Under control of the calling 
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routine, the module will flash the window to act as a prompt to the user 
to look at that window. 

8. XYZIN 

This module is responsible for obtaining the data necessary to 
identify a single location. The module defines the windows by calling 
WIN and actually obtains the data by calling SPOT. 

9. GUNLOC 

This module is used to display special points such as the weapon 
locations and the target. The location is marked with a "+". It then 
draws a circle around the location with a radius specified by the calling 
routine. 

10. BEGIN 

BEGIN is the module responsible for initializing the program. 

The user's options for data input are requested and passed to MAIN through 
the Option Data Set. The module also executes the calls that initialize 
the graphics routines and computes the coordinates of the various windows 
to be used. 

11. GUNCHK 

This module is responsible for checking the gun emplacement 
rules. A violation results in the appropriate error code being returned. 

12. PRESET 

This module is responsible for formatting the data so that it 
is compatible with the data file expected by the simulation program which 
is to use the flight path. It is also responsible for conversion from 
Metric to English units where necessary. 



24 



13. ELFIN 



This module obtains the user's output options and closes access 
to the graphics routines. 

14. AIMPT 

This module provides a display to the user to allow proper 
alignment for the bombing runs. 

15. CONCHG 

This module allows the user to change the value of the simulation 
limits. It also saves these changes and allows the user to read a 
complete set of limits from a disk file. 

16. ERRMK 

This module sends error messages and prompts to the operator 
when graphic routines are being used. The message to be set is identified 
by a parameter passed by the calling routine. 

17. SAMCHK 

This module is responsible for checking for violations of 
the SAM emplacement rules. If errors are detected, it calls ERRMK with 
the appropriate code and returns a "1" to the calling routine. A zero 
is returned if no errors occur. 
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IV. FLIGHT DYNAMICS 



When defining a flight path, the user must provide a finite set of 
milestone coordinates. The leg between each pair of milestones is 
usually considered to be straight. However, this straight line path 
causes problems with the computation of some of the flight path parameters. 
For instance, the heading at milestone I in a simple simulation could 
easily be computed as: 

Heading. j = Arctan (DY/DX) 

where DX and DY are the X and Y components of the leg from milestone 1-1 
to I. If "i" and "j" are redefined as I and I + 1, the equation is still 
a legitimate approximation of the heading at I. In reality, the aircraft's 
heading at milestone I is somewhere between these two values. The same 
is true of the climb angle. These two angles in turn define the X, Y, 
and Z components of velocity at the milestone. 

To account for this ambiguity, the program uses an averaging technique 
for computing the data required to define the flight path. The technique 
uses the operator's input of position and velocity over three milestones, 
except at the initial and final milestone, to compute average values of 
heading, climb, and velocity components. 

First, the previous leg's distance and average velocity (from 1-2 to 
1-1) are saved in DISTL and VAVGL for later use. Next, the current leg 
(from 1-1 to I) is evaluated, with the X, Y, and Z components and distance 
DIST being computed as follows: 
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DX = X(I) - X(I-l) 

DY = Y( I ) - Y(I-l) 

DZ = Z(I) - Z(I-l) 

DIST = (DX 2 + DY 2 + 0Z 2 ) 1/2 
The average velocity VAVG equation is: 

VAVG = (VEL(I) + VEL( 1-1) )/2 

The time for the leg (DT) and the total time ( T( I ) ) is then computed: 

DT = DIST/VAVG 
T( I) = T(I-l) + DT 

The average X, Y, and Z components of velocity along the leg (1-1 to I) 
become : 

AXD(I) = VAVG*DX/DIST 
AYD(I) = VAVG*DY/DIST 
AZD(I) = VAVG*DZ/DIST 

At milestone I, the acceleration components can now be computed for 
milestone 1-1 (see Fig. 1): 

DELT = ( T( I ) - T( 1-2) )/2 
XDD = (AXD(I) - ( AXD( 1-1 ) ) /DELT 
YDD = (AYD(I) - ( AYD( 1-1) ) /DELT 
ZDD = (AZD(I) - (AZD( 1-1) ) /DELT 

Three working vectors, TDX, TDY, and TDZ, determine the average X, Y, and 
Z components that will be used to compute the climb and heading angles. 
These in turn will determine the components of velocity (XDOT, YDOT, 

ZDOT) at the previous (1-1) milestone. The equations are: 

HDAVG = DIST/( DIST + DISTL) 
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figure 1. Components of Average Velocity-Horizontal Flight. 
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TDX = ( AXD( I ) /VAVG - AXD( I-1)/VAVGL)*HDAVG + AXD ( 1-1 J/VAVGL 

TDY = ( AYD( I )/VAVG - AYD( I-1)/VAVGL)*HDAVG + AYD( I -1 ) / VAVGL 

TDZ = (AZO( I )/VAVG - AZD( 1-1 )/VAVGL)*HDAVG + AZD( 1-1 )/ VAVGL 

UNIT = (TDX 2 + TDY 2 + TDZ 2 ) 1/2 

TDX = TDX/UNIT 
TDY = TDY/UNIT 
TDZ = TDZ/UNIT 
XDOT(I-l) = VEL( I-1)*TDX 
YDOT(I-l) = VEL(I-1)*TDY 
ZDOT(I-l) = VEL( I-1)*TDZ 

CA(I-l) = Arctan (TDZ/(TDX 2 + TDY 2 ) 1/2 ) 

HDG(I-l) = Arctan (TDY/TDX) 

To compute the roll angle RA and the forces acting on the aircraft, it 
is necessary to transform the acceleration from the group coordinate 
system into an aircraft centered coordinate system with axes parallel and 
perpendicular to the flight path. The parallel component in the direction 
of flight is TMD. PH is perpendicular to the flight path, parallel to 
the X/Y plane, and out the left wing. PP is parallel to the cross product 
TMD x PH (see Fig. 2). The transformation equations are: 

TMD = All + A12 + A13 

PH = A21 + A22 + A23 

PP = A31 + A32 + A33 

where 

GEE = 9.82, the gravitational constant 
HDCOS = cos (HDG) 

HDSIN = sin (CA) 
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Figure 2. Aircraft and Reference Coordinate Systems. 
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CACOS = cos (CA) 

CASIN = sin (CA) 

All = XDD( I-l)*HDCOS*CACOS 
A21 = XDD( I-1)*HDSIN 
A3 1 = XDD( I-l)*HDCOS*CASIN 
A12 = YDD( I-1)*HDSIN*CAC0S 
A22 = YDD(I-1)*HDC0S 
A3 2 = YDD(I-1)*HDSIN*CASIN 
A13 = (ZDD(I-l) + GEE)*CASIN 
A23 = 0 

A3 3 = (ZDD(I-l) + GEE)*CACOS 

The total lift ACLIFT is the vector sum (PH + PP) of the perpendicular 
forces and it is assumed that the aircraft will roll such that the wings 
are perpendicular to the lift. The equations are therefore: 

ACLIFT = (PH 2 + PP 2 ) 1/2 
RA = -Arctan (PH/PP) 

The vectors PH and PP are not explicitly computed and, with the acceleration 
in terms of G's, the equations become: 

TMD = (All + A12 + A13 ) / GEE 
ACLIFT = ( ( A21 + A22) 2 + (A31 + A32 + A33) 2 ) 1/2 /GEE 
RA = -Arctan (A21 + A22)/(A31 + A32 + A33) ) 

TMD, the net acceleration parallel to the flight path, is the sum of the 
aircraft's thrust and drag divided by aircraft weight: 

F/W = ma/W = ma/mg = a/g = TMD 

where F = total force, W = total weight, m = aircraft mass, a = accelera- 
tion, and g = gravitational acceleration. The drag force can be computed 

from the lift. The equations are as follows: 
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RHO = 0 .256*e(- 0 - 103 * Z ( I ) /100 °) 

CL = 2*ACLIFT/(RHO*VEL(I) 2 /WL) 

DW = ( (CDO + CDK*CL 2 )/CL)*ACLIFT 

TW = TMD + DW 

where RHO = density of air in (lb*sec )/(ft^*meter' 1 ). The mixed 

units are required to use Metric units for velocity and English units for 

wing loading. 

CL = lift coefficient 

2 

WL = wing loading in lbs/ft 
DW = drag divided by weight 
CDO = drag coefficient for zero lift 
CDK = factor relating lift and drag coefficients 
TW = thrust divided by weight 

Maximum values of ACLIFT, CL, and TW were used as constraints on aircraft 
performance. TW must be positive or zero. If it is found to be negative, 
then TMD must be negative. This is a large negative acceleration and 
implies speed brakes are being used. Consequently, a different drag 
equation must be used. The program assumes the brakes have a drag 
coefficient of one and a surface area equal to five percent of the wing 
surface. The new drag equation is: 

DW = (ACLIFT/CL)*(0.05 + CDO + (CDK*CL 2 ))/2 
This drag is used to reevaluate TW and thus determine whether or not the 
attempted deceleration exceeded the capabilities of the speed brake. 
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V. GRAPHICS HARDWARE AND SOFTWARE 



Two interactive graphic systems are suported by the IBM 3033 computer. 
The TEKTRONIX PLOT-10 software package supports terminals from the 
TEKTRONIX 4010 family and is available for implementation on a wide 
variety of computers, including minicomputers. The IBM 3277-based 
graphics package is available only on IBM computers used in conjunction 
with modified IBM 3277 terminals. Both systems use direct view storage 
tubes for the graphics display and keyboard and cursor for data input. 

A direct view storage tube is one in which the picture does not have 
to be continuously refreshed. The major advantages with this type of 
display is that the line drawing is faster and the lines that are drawn 
are continuous. This creation of continuous lines is not available on 
raster scan (television style) display devices. These displays sweep 
horizontally from top to bottom and have a finite number of elements, 
called pixels, that are turned either on or off on each sweep. These 
discrete elements can lead to the "staircase effect," where the line 
makes finite jumps from one row or column to another. On direct view 
storage tubes, this effect is eliminated because the electron beam can be 
steered to any point on the screen and moved directly to any other 
point. 

The major disadvantage of most storage tube displays is that portions 
of the screen cannot be erased without erasing the entire screen. In 
order to remove an undesired display, the entire screen must be cleared 
and then the portions that are to be retained are redrawn. This can be 
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very annoying to the operator. It also causes delays that adversely 
affect the user's willingness to continue with the program. For instance, 
drawing the scenario displays, when operating at 300 BAUD, takes almost 
five minutes. Raster scan devices do not have this problem because the 
picture is continuously redrawn and there is no difficulty changing it. 

The TEKTRONIX terminal for which this program was written is the 
Model 4012. This terminal has an 8-1/2 inch by 6-1/2 inch screen and a 
standard computer keyboard. The PLOT-10 software identifies the screen as 
a coordinate system 1,023 units wide and 780 units high, with the lower 
left corner having a value of (0,0). The software also provides for the 
definition of screen windows and virtual coordinate systems. A screen 
window is a rectangle on the screen. It is defined by the lower and upper 
horizontal and vertical coordinates the programmer provides. There is no 
limit to the number windows that can be defined, but only one exists at a 
particular time. A similar concept is the virtual window. Once a screen 
window is activated, the programmer can assign the range of coordinates 
that this window will represent. The PLOT-10 software also provides for 
converting from Metric and English units to screen units and vice versa. 
Combined with a virtual coordinate system, this allows the programmer to 
provide true scale drawings. For example, the attack map screen window 
is defined as starting 1/5 inch from the left side of the screen and 
extending to 6-1/5 inches from the left. This six inch length is then 
given virtual limits of 0 and 18,000, giving a true scale of 3,000 
meters/ inch . 

Hard copy output from the TEKTRONIX 4012 can be obtained by connecting 
the terminal to either the TEKTRONIX 4662 interactive plotter or the 
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TEKTRONIX 4631 hard copy device. The 4662 plotter is capable of being 
independently controlled with PLOT-10 software, or it can duplicate what 
is occurring on the 4012 screen. Figure 3 is the output from the plotter 
operating in parallel with the terminal. The 4012 can also electronically 
scan the display. This information is then used to control the light 
intensity that exposes the light sensitive paper in the 4631 copier. 

Figure 4 is the output obtained from the 4631 hard copy device. 

The IBM 3277-based graphics system is a dual screen system. It uses 
an additional circuit card in an IBM 3277 terminal, which has a raster 
scan, to drive a TEKTRONIX 622 direct view storage tube display. The 
software package is very versatile. It provides a wide variety of 
three-dimensional, geometric, and vector-drawing support and a limited 
capability for amoving display. Another advantage is the availability 
of the raster terminal. This greatly facilitates alphanumeric, as 
opposed to graphic, input and output. The extensive support this package 
provides is also a handicap. The functions are generally more difficult 
to use than those provided by PLOT-10. In addition, the software is 
partially incompatible with FORTRAN terminal input/output. When FORTRAN 
input/output routines (WRITE or READ) are used, the raster screen must be 
manually cleared before execution continues. This is a major distraction. 

Like the 4012, the TEKTRONIX 622 can electronically scan its display 
and drive the 4631 hard copy device. Figure 5 is a copy of the display 
as it appears on the 622 screen. Ultimately, the Naval Postgraduate 
School's TEKTRONIX 622' s will be connected to a VERSATEC electrostatic 
plotter. This will significantly improve the overall capability of the 
graphic support at the school. 
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Figure 5. IBM 3277-based Graphics Plot. 



VI. DETAILED DESCRIPTION 



This section will provide a detailed description of the program as 
implemented using the PLOT-10 software to support the TEKTRONIX 4010 
family of terminals. The first segment will describe the internal and 
external data required by the program while the second will describe the 
modules. 

For the purposes of this section, a definition of the meaning of 
"data set" is required. The words "data set" describe a logical group of 
data. The FORTRAN language uses the term "data set" to identify a 
hardware device. The term "FORTRAN data set (number)" will be used to 
define this concept. For example, the MAP file is a data set consisting 
of points that define the scenario map. The information is contained on 
a device which has been identified as FORTRAN data set 9. 

The description of the internal data will identify the use of each 
variable in a data set, and the range of values the variable can be 
assigned. The external data set descriptions will list the contents and 
format of each element. 

The final part of this section will describe the modules. A brief 
functional description will be given. Those parameters which must be 
provided to the module or returned by it will then be described. The 
global data sets which the module uses will be identified, but not the 
individual elements of the set. Next, the description will list the 
higher level modules that the module must support. This will be followed 
by a list of the module's local variables, which will describe the use 
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and possible values of the variable. The final segment will be an 
algorithmic and flowchart description of the module. In the algorithmic 
description comments will be marked by square brackets ([ ]) . 

A. INTERNAL DATA SETS 

1. Screen Window Defined 

The variables for this data set are contained in common block MN. 
The variables are: 

a. IBAUD 

This variable identifies the baud rate of the user's terminal. 
This is necessary to allow the screen prompts to flash sufficiently long 
to attract attention, but not too long as to be distracting. The allow- 
able values are: (1) 0--this indicates a slow (110-300 BAUD) terminal 

interface; and (2) any positive integer--this indicates a fast (1,300- 
9,600) terminal interface with the computer. The larger the number, the 
more times the prompt flashes will appear. Since the baud rate determines 
the length of time between flashes, a larger number of flashes will 
result in the prompt being visible for a greater period of time. 

b. MINY, MAXY 

These variable identify the lower and upper vertical limits 
for all the screen windows. They can be assigned any positive integer 
value within the limits of a TEKTRONIX screen, subject only to the con- 
straint that MAXY is greater than MINY. For the TEKTRONIX 4012 terminal, 
the values are: (1) MINY = 777-KIN(4.375) , which places the screen 

windows' lower boundary 4.375 inches from the top of the screen; and (2) 
MAXY = 777-K I N ( 0 . 375 ) , which places the screen windows' upper limit 0.375 
inches from the top of the screen, making the windows four inches high. 
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c. MINX, MAXX 

These are the left and right screen limits of the map window. 
They can be assigned any positive integer value within the limits of a 
TEKTRONIX screen, subject only to the constraint that MINX is less than 
MAXX. For TEKTRONIX 4012, the values are: (1) MINX = KIN(0.20), which 
places the left screen boundary of the map one fifth inch from the left 
edge of the screen; and (2) MAXX = K I N ( 6 . 20 ) , which places the map's 
right screen boundary 6.20 inches from the left side of the screen for a 
window six inches wide. 

d. MINI, MAXI 

These variables define the left and right screen borders of 
the altimeter. They can be any positive integer within the limits of the 
TEKTRONIX screen, subject to two constraints. MINI must be less than 
MAXI and the range of MINI-MAXI must not overlap that of MINX-MAXX. For 
this program, the values are computed as follows: (1) MINI = MAXX + 10, 

which places the left screen limit of the altimeter window 10 units to 
the right of the map window; and (2) MAXI = MAXX + 185, which places the 
right border 185 screen units to the right of the map window and makes 
the altimeter window 175 units wide. 

2. Target Definition 

The variables for this data set are found in common block TAR. 
They are: 

a. TARGX 

This is the X coordinate of the target. It must have a 
positive value less than 18,000 to appear on the map and is initialized 
in the Block Data section to a value of 14,000. 
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b. TARGY 



This is the Y coordinate of the target and must be a positive 
value less than 12,000 to appear on the map. It is initialized in the 
Block Data section to a value of 7,220. 

3. Option List 

These variables are found in the common block OPT and are defined 
as follows. 

a. IGUN 

This is a variable used to indicate the source of the weapon 
site data. The values are assigned the following meaning: (1) 0--the 

weapon site data is to be obtained from the external data set GUN LOC; 

(2) 1 — the weapon site data will be entered by the user at the terminal; 
and (3) any other value--the weapon site data is the default data contained 
in common block PAR2. 

b. IPNCH 

This control variable relays the users choice of the output 
files to be created by module PRESET. The values mean: (1) 0--no output 
files are desired; (2) l--only a P001 file is to be written; (3) 2--only 
a MICE II file is to be written; and (4) any other value--both P001 and 
MICE II files are to be written. 

c. IEXT 

This controls whether or not the P001 extended output option 
cards are written. The values are: (1) l--extended output option is 

requested; and (2) any other value--the option is not requested. 
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d. ISAM 



This is the missile type to be used in the MICE II file. 

It may be any integer between 1 and 7. The missile type is defined in 
Reference 2. 

e. IMP 

This indicates the user's option for the source of the 
milestone data and has the following definition: (1) 0— the data is to 

be obtained from the external data set PTS LOC; and (2) any other value-- 
the data is to be entered by the user at the terminal. 

f. KER 

This indicates the user's option to ignore errors. The 
possible values are: (1) 0 — ignore errors; and (2) any other value--noti fy 

the user of violations of the simulation parameters. 

4. Flight and Weapon Parameter List 

This data set consists of three common blocks. These blocks 
are PAR, PARI, and PAR2. The variables in PAR are: 

a. X, Y, Z 

These are 200 element arrays where X ( I ) , Y ( I ) , Z(I) are the 
X, Y, and Z coordinates in meters of milestone I. 

b. CA, HDG, RA 

These are 200 element arrays. CA(I), HDG(I), and RA( I ) are 
the climb, heading, and roll angles in radians of the aircraft at 
milestone I. 

c. VEL 

This is a 200 element array with VEL(I) representing the 
aircraft velocity in meters/second at milestone I. 
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The variables in PARI are: 

d. XDOT, YDOT, ZDOT 

These are 200 element arrays. XDOT(I), YDOT(I), and ZDOT(I) 
are the X, Y, and Z components in VEL(I) at milestone I. 

e. MNUM 

This is a counter that indicates the current milestone. 

f. MBR 

This is a counter that indicates the milestone at which the 
aircraft's weapons were released. 

The variables in PAR2 are: 

g. t 

This is a 200 element array. T(l) is zero and T(I) is the 
elapsed time at milestone I. 

h. X6UN, YGUN, ZGUN 

These are seven element arrays which contain the X, Y, and 
Z location, in meters, of the gun emplacements. The default values are 
initialized in the Block Data section. 

i. XSAM, YSAM, ZSAM 

These are the X, Y, and Z location, in meters, of the SAM 
emplacement. The default values are set in the Block Data section. 

j. GR 

This is a seven element array. GR ( I ) is the engagement 
radius of gun I. The values for GR are established in the Block Data 
section . 
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5. Simulation Parameter List 



The data set is contained in common) blocks PAR3 and PAR4. 

PAR3 contains: 

a. TMD 

This is the net acceleration, in G's, parallel to the aircraft's 

flight path. 

b. ACLIFT 

This is the net acceleration, in G's, perpendicular to the 
flight path of the aircraft. 

c. CLMAX 

This is the maximum allowable coefficient of lift. It is 
initialized to 1 in the Block Data section. 

d. WL 

2 

This is the wing loading of the aircraft in pounds/ft . 

It is set to 100 in the Block Data section. 

e. TMAX 

This is the maximum thrust-to-weight ratio, in G's, that the 
aircraft can provide. The initial value of 0.4 is set in Block Data. 

f. CDO 

This is the drag coefficient with zero lift. Block Data 
sets it initially to 0.015. 

g. CDK 

This is the factor relating the drag and lift coefficients 
and is set in Block Data to a value of 0.1. 



45 



h. VMAX1, VMAX2 

These are the maximum allowable aircraft velocities, in 
meters/second, before and after the bombs have been released and are set 
equal to 260 and 310, respectively, in Block Data. 

The variables contained in PAR4 are: 

i . APPMAX 

This is the maximum altitude, in meters, that the aircraft 
can ascend to before executing its pop-up maneuver. Block Data sets this 
variable to 457. 

j. HTMIN, HTMAX 

These are the minimum and maximum altitudes, in meters, 
that the aircraft can position itself. HTMIN is set to 60 and HTMAX to 
2,050 in Block Data. 

k. SPDMIN 

This is the aircraft stall speed, in meters/sec. It is set to 
an initial value of 90 in the Block Data section. 

l . GMAX 

This is the maximum G force that the aircraft can sustain 
and is set to 6 in Block Data. 

m. P0PMIN 

This is the minimum distance to the target, in meters, 
before the aircraft can begin the pop-up maneuver. Block Data sets it 
at 6,000. 

6. Coordinate List 

The variables in this data set are contained in common block 
L0C. The variables are: 
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a. XI, Yl, Z1 



These are the X, Y, and Z values entered by the user at 

a milestone. 

b. VI 

This is the velocity selected by the user. 

c. LTR, LTR2 

These are operator commands. They have the following meaning 
(1) 65 — th i s indicates that the user wants assistance in aligning his 

flight path for a bombing run; (2) 66 — this means the user wants to 
release the bombs at this milestone; (3) 85 — th i s means that the user 
wants to reset the flight path to an earlier point; (4) 86--this means 
that the user is finished with milestone entry; and (5) any other value-- 
no effect. 

7. Error Message Pointer 

The variables in this data set are found in common block ERR. 

They are: 

a. MKERX 

This is a three element array that indicates which column 
contains the error message. For the TEKTRONIX 4012, these columns are 
set in Block Data to screen coordinates 640, 340, and 40. 

b. MKERY 

This is a 20 element array that contains the vertical screen 
coordinates of the error messages. The array is initialized in Block 
Data. 
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B. EXTERNAL OATA SETS 

1. Weapon Locations 

This data set is maintained on FORTRAN data set 10. The data 
set is written using (3F10.2) format. The three elements are the X, Y, and 
Z coordinates of the weapon sites. The set contains seven weapon sites. 
These are the coordinates of gun sites 1-6 and the SAM site. 

2. Map File 

This data set is found on FORTRAN data set 9. The format is 
(2F10.2). The information is organized as follows: 

1. The first element is the coordinate set that marks the first point 
to be drawn on the map. 

2. Subsequent data is interpreted as follows: (1) positive values-- 

draw a line to the point that was just read; (2) negative value greater 
than -1 — ignore this set, read the next set and move the cursor there 
without drawing; and (3) negative value less than -l--end of data. 

3. Milestone File 

This data set is found on FORTRAN data set 11. The format is 
(4F10.0,13). Each line is organized as follows: 

a. Elements 1-4 

These are the X, Y, Z, and velocity values for the milestone 
in (F10.0) format. 

b. Element 5 

This is the command and is interpreted as follows: (1) 

83--last milestone; (2) 66--release the bomb on this milestone; and (3) 
l--after this milestone, stop reading milestones from the external data 
set and begin accepting them from the user. 
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4. Output Files 



These files contain the data in the formats specified in Refer- 
ences 3 and 4. The P001 file is written to FORTRAN data set 18 and the 
MICE II file is written to FORTRAN data set 17. 

5. Rule File 

This file is found on FORTRAN data set 16. The format is (6F12.4). 
The first set of six contains the values of CLMAX, WL, SPDMIN, GMAX, 

HTMIN, and HTMAX. The second set of six contains POPMIN, APPMAX, TMAX, 

CDO, CDK, and VMAX1 . The final set of three contains the values for 
VMAX2 , TARGX, and TARGY. 

C. MODULES 
1. MAIN 

a. Function: MAIN controls the execution of the entire program. 

b. Parameters Required: None. 

c. Common Blocks: MN, PAR, PARI, PAR2, OPT, LOC. 

d. Called By: None. 

e. Local Variables: 

(1) I--used as a loop counter. 

(2) FTFAC--constant for converting meters to feet. 

(3) DGFAC—constant for converting radians to degrees. 

(4) ICT--counter used to indicate the milestone selected 
during resets. 

(5) LAST — end of file marker for flight path file. A 1 
indicates the flight path will be continued, 83 marks the final milestone. 
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(6) DX, OY, DZ--X, Y, and Z components of the final leg 
of the flight path, used to compute final values of HDG, CA, XDOT, YDOT, 
and ZDOT. 



(7) BLANK--constant set to 0 for output to flight path file, 
f. Algorithm 

initialize MBR, MNUM, and T(l) 
call BEGIN [initialize] 
cal 1 SCENE [draw map] 
rewind gun disk file 

if (terminal input of gun sites) then [IGUN = 1] 
prompt user to input gun coordinates 
do I = 1 to 6 

do unti 1 ( IERR = 0) 

I ERR = 0 

call XYZIN [get coordinates] 
if (Zl> = 1,000) then STOP 

if (Zl> = 5) then call GUNCHK [check for valid location 
return IERR error code] 

if (IERROO then call ERRMK [indicate error] 
end do 

write XI, Yl, and Z1 to disk file GUNLOC 
end do 

write missile prompt 
do until (IERR = 0) 

call XYZIN [get SAM coordinates] 
if (Z1 > = 1,000) then stop 
call SAMCHK [check for correct placement] 
end do 

write SAM coordinates to disk file 
else if (disk input requested) then do [IGUN = 0] 
do I = 1 to 6 

read XGUN(I), YGUN(I), and ZGUN(I) from disk file GUN LOC 
end do 

read XSAM, YSAM, and ZSAM from disk file GUN LOC 
end if [terminal input selected] 
do until (command = stop) 
do I = 1 to 7 

call GUNLOC [draw gun site] 
end do 

call GUNLOC [draw SAM site] 
set constants 

prompt user to enter milestones 
rewind milestone disk file PTS LOC 

do until (command = stop or ((command = reset) and (terminal 
input requested))) 
increment MNUM 

do until ( IERR*KER = 0 and IERR <> 12) 
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if (disk input requested) then [IMP = 0] 
do until (X > 0.1) 

read X, Y, Z, VEL, and LTR [LTR is command 
variable] 
end do 
LTR2 = LTR 

if (command = shift to terminal input) IMP = 1 
[LTR = 1] 

FIX else call XYZIN [get X, Y, X, VEL, LTR, and LTR2] 

end if 

if (MNUM = 1 and command = stop) then STOP [LTR = 83 OR 
LTR2 = 83] 
if (MNUM > 1) then 
IERR = 0 

call VALSET [compute flight parameters] 
if (command = bomb release) then MBR = MNUM [LTR = 66] 
if (command <> restart and command <> stop) then 
[LTR <> 82 or 83] 

if (IERR = 0) call ERRCHK [return error code IERR] 
if ( IERR*KER <> 0 or IERR = 12) then 
call ERRMK 

if (disk milestone input) then ask user if 
error is to be ignored 
if (error not ignored) then go to FIX 
end if 
end if 

end if [MNUM > 1] 

end do [until IERR*KER = 0 and IERR <> 12] 
call PTHPLT [mark milestone] 
if (command = aim) call AIMPT [LTR = 65] 
end do [until command = stop or command = restart] 
if (command = restart) then [LTR = 82] 

call SCENE [redraw map and get restart milestone] 
rewind scratch file TEMP DATA 
if (MBR > ICT) then MBR = 0 
if (ICT = 1) then 
MNUM = 0 

else 

do MNUM = 2 to ICT 

call PTHPLT [plot milestones] 
end do 

decrement NMUM 
end if [ICT = 1] 
end if [command = restart] 
end do [until command = stop] 
call PTHPLT [plot final milestone] 

LAST = IMP 

call ELFIN [get output options] 

compute final milestone flight parameters 

if (new flight path or new gun locations created) then 

[IMP = 0, IGUN > 0] 

rewind flight path file PTS LOC 
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MAIN 






Figure 6. MAIN Flow Chart. 
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Figure 6 continued. 
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Figure 6 continued. 
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IF (IGUN > 1) then IGUN = 1 
write header on PTS LOC 
do I = 1 to MNUM 
LTR = 0 

if ( MB R = I) LTR = 66 

else if (I = MNUM) then LTR = LAST 

end i f 

write to disk file PTS LOC X, Y, Z, VEL, and LTR 
end do 

write end of milestone marker to file PTS LOC 
write old PIP option line to file PTS LOC 
if (IGUN <> 0) then 
do I = 1 to 6 

write XGUN, YGUN, and ZGUN to disk file PTS LOC 
end do 

write XSAM, YSAM, and ZSAM to file PTS LOC 
end if 

end if [IMP = 1 or IGUN > 0] 
do I = 1 to MNUM 

convert CA, RA, and HOG from radians to degrees 
end do 
call PRESET 
end MAIN 

2. VALSET 



a. Function: This subroutine computes the flight parameters 

for each milestone. XDOT, YDOT, ZDOT, CA, HDG, and RA are computed for 
output to P001 and MICE II. TMD and ACLIFT are computed for use by 
ERRCHK. See Section IV for the equations of motion. 

b. Parameters Required: IERR — set to 12 if there is no change 

in the horizontal (X, Y) position. 

c. Common Blocks: PAR, PARI, PAR2, PAR3. 

d. Called By: MAIN. 

e. Local Variables: 

(1) GEE — gravitational constant 9.82 meters/sec. 

(2) DX, DY, DZ--X, Y, and Z components of the flight-path 
leg oeing evaluated. 

(3) VAVGL-- average velocity of the previous leg. 

(4) DISTL-- length of previous leg. 
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(5) D I ST — length of the current leg. 

(6) VAVG — average velocity of the current leg. 

(7) DT — time along the current leg. 

(8) AXD, AYD, AZD — X , Y, and Z components of current average 

velocity. 

(9) DELT-- -time along current and previous legs. 

(10) XDD, YDD, ZDD--X, Y, and Z components of acceleration. 

(11) HDAVG--weighting factor for computing TDX, TDY, and TDZ. 

(12) TDX, TDY, TDZ--weighted X, Y, and Z components of velocity. 

(13) UNIT — conversion factor to make (TDX + TDY + TDZ) a unit 



vector . 



(14) CASIN, CACOS— sine and cosine of the climb angle CA. 

(15) HDGSIN, HDGCOS — sine and cosine of the heading HDG. 

(16) All, A12, A13--X, Y, and Z components of acceleration 



parallel to the flight path. 

(17) A21, A22, A23 — components of acceleration perpendicular 
to the flight path and parallel to the X/Y plane due to X, Y, and Z 
compenents of acceleration. 

(18) A31, A32, A33 — components of acceleration perpendicular 
to the flight path not parallel to the X/Y plane due to X, Y, and Z 
components of acceleration. 

f. Algorithm 

compute DX, DY, and DZ 
if (no horizontal motion) then 
IERR = 12 
return 

el se 

save old values of VAVG and DIST in VAVGL and DISTL 
compute DIST 

if (VEL > VMAX1 and bomb not released) then VEL = VMAX1 
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Figure 7. VALSET Flow Chart. 
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if (VEL > MAX 2 and bomb released) then VEL = VMAX2 

compute V AVG 

compute DT and T 

compute AXD, AYD, and AZD 

if (MNUM = 2) then 

compute CA, RA, HDG, XDOT, YDOT, and ZDOT for milestone 1 

el se 

compute DELT 

compute XDD, YDD, and ZDD 
compute HDAVG 

compute TDX, TDY, TDZ, and UNIT 
if (UNIT < 0.01) then 
IERR = 12 
return 

el se 

recompute TDX, TDY, and TDZ 

compute XDOT, YDOT, ZDOT, CA, and HDG for milestone 
MNUM-1 

compute A11-A33 
compute TMD, ACLIFT, and RA 
end if [UNIT < 0.01] 
end if [MNUM = 2] 
end if [no horizontal motion] 
return 
end VALSET 

3. ERRCHK 



a. Function: This subroutine evaluates the flight parameters 

to ensure that they meet the desired simulation limits. 

b. Parameters Required: IERR — returns the error code for 

simulation violations. 

c. Common Blocks: PAR, PARI, PAR2, PAR3, PAR4, TAR. 

d. Cal led By: MAIN . 

e. Local Variables: 

(1) DX, DY--X and Y distances to the target, later used as 
the X and Y components of the current leg. 

(2) DIST — distance to the target. 

(3) POPALT— altitude of the pop-up maneuver. 
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(4) TMSAV--saves the value of TMAX before bombs are dropped. 

This is used when the flight path is reset after bombs are dropped. 

2 2 2 

(5) RHO--density of air in lb sec /meters feet . The 
mixture of units is necessary since the coordinate system is in Metric 
units and wing loading is in English units. This provides the proper 
units for computing CL and DW. 

(6) CL — lift coefficient. 

(7) DW — drag divided by weight 

(8) TW— thrust divided by weight 

(9) DT— time spent on current leg. 

(10) TGTHDG—heading from the aircraft to the target in 

degrees . 

(11) ACHDG — direction of the current leg in degrees. 

(12) HDGLMT— absol ute difference between ACHDG and TFTHDG. 

f. Algorithm 

compute DX, DY, and DIST 
if (MNUM = 2 and TMSAV = -1) then 
POPALT = 0 
TMSAV = TMAX 
end if 

if (MBR =0 and TMAX <> TMSAV) TMAX = TMSAV [necessary to 
reset TMAX when the flight path is reset following a successful 
bomb release] 
call ERRMK (22) 

if (bomb not released) then [MBR = 0] 

if (DIST > POPMIN and Z > APPMAX) then 
IERR = 4 
return 
end if 
end if 

if (DIST < = POPMIN and Z > POPALT) then POPALT = Z 
if (Z < HTMIN) then 
IERR = 3 
return 

else if (Z > HTMAX) then 
IERR = 4 
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ERRCHK 




Figure 8. ERRCHK Flow Chart. 
60 






Figure 8 continued. 
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return 

else if (VEL < SPDMIN) then 
IERR = 5 
return 
end if 

if (MNUM = 2) then Return 
if (ACLIFT > GMAX) then 
IERR = 1 
return 
end if 

compute RHO, CL 
if (CL > CLMAX) then 
IERR = 17 
return 
end i f 

compute DW and TW 

if (TW > TMAX or TW < 0) then 

if (TW > TMAX) then IERR = 18 
Recompute OW 

if (TMD + DW < = 0) then IERR = 1 
if (IERR <> 0) then Return 
end if 

if (bomb not dropped this milestone) then Return [MNUM OMBR] 

compute DT, DX, DY, TGTHDG, ACHDG, and HDGLMT 

if (POPALT < 1,000) then IERR = 6 

else if (Z < 100) then IERR = 7 

else if (Z > 2,000) then IERR = 8 

else if (DIST > 2,000) then IERR = 9 

else if (HDGLMT > 5) then IERR = 10 

else if (DT < 2.33) then IERR = 11 

else TMAX = 1.2*TMAX 

return 

end ERRCHK 

4. PTHPLT 



a. Function: This subroutine notifies the user that his mile- 

stone has been accepted and then saves the successful point in a temporary 
disk file. 

b. Parameters Required: None. 

c. Common Blocks: MN, PAR, PARI. 

d. Called by: MAIN. 

e. Local Variables: None. 
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Figure 9. PTHPLT Flow Chart. 
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f. Algorithm 



call WIN [define map window] 
move to previous milestone 
draw line to present milestone 
label milestone 

write X, Y, Z, VEL, and a 0 to scratch file TEMP DATA 

return 

end PTHPLT 



5. SPOT 

a. Function: This subroutine obtains an X/Y coordinate pair 

and two commands from the user. 

b. Parameters Required: 

(1) X, Y--X, and Y values obtained from the user, returned to 
the cal 1 ing routine. 

(2) LI, L2--two commands obtained from the user, returned to 
the cal 1 ing routine. 

c. Common Blocks: None. 

d. Called By: XYZIN. 

e. Local Variables: A, B— dummy variables needed for subroutine 

VCURSR. 

f. Algorithm 

do until (command <> no) [L2 <> 78] 
input X, Y, and LI 
put point at (X, Y) 
input L2 to verify location 
end do 
return 
end SPOT 

6. SCENE 



a. Function: This subroutine draws the attack scenario map 

it obtains the last milestone the 



and associated displays. During reset 
user wishes to retain. 
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SPOT 



Figure 




10. SPOT Flow Chart. 
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b. Parameters Required: 

(1) IRQ — s i gn i f ies the reset condition: 1 for reset, 0 for 

initial drawing. 

(2) ICT — the last milestone the user wishes to retain. 



returned to 


the cal 1 ing routine. 




c. 


Common Blocks: ERR, MN, TAR, 


PAR. 


d. 


Called By: MAIN. 




e. 


Local Variables: 






(1) MAP—controls whether or 


not the road, buildings, and 


river are drawn. 






(2) X, Y — X and Y coordinates 

(3) IT — loop counter. 


of points on the map. 




(4) IW— scale factor for labelling the axes of the map. 

(5) I — index for MKERX. 


f. 


Algorithm 





clear screen 

write village option prompt 
read village option [MAP] 
if (restart) then [IRQ = 1] 
write restart prompt 
read restart point 
end if [restart] 
call WIN to define map 
if (village drawn) then [MAP = 1] 
rewind disk file PICTUR DATA 
read TX, TY 
do until (TX < -1) 
read TX, TY 
move to TX, TY 
do until TX < 0 and TY > -1) 
read TX, TY 

if (TX > 0) then draw to (TXM TY) 
end do [TX < 0 and TX > -1] 
end do [TX < -1] 
end if 

call GUN10C to mark target 
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SCENE 




Figure 11. SCENE Flow Chart. 
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label map axes 

if (restart) then mark last altitude and velocity 
write error messages 
return 
end SCENE 



7. WIN 



a. Function: This subroutine defines a window on the screen 

and sets its virtual boundaries. The lower left corner is set to (0,0). 

b. Parameters Required: 

(1) LX--minimum screen X coordinate. 

(2) MX--maximum screen X coordinate. 

(3) RX--maximum virtual X coordinate. 

(4) RY— maximum virtual Y coordinate. 

(5) JMP--controls flashing of the window being defined. 

c. Common Blocks: MN. 

d. Called By: PTHPLT, GUNLOC, SCENE, XYZIN. 

e. Local Variables: 

(1) ICT--determines how many times the window will flash. 

(2) I — loop counter. 

f. Algorithm 

define window screen boundaries 
define window virtual boundaries 
if (flash requested) then 
compute ICT 
do I = 1 to ICT 
flash window 
end do 
end if 
return 
end WIN 

8. XYZIN 



a. Function: This subroutine obtains the X, Y, Z, velocity, and 

command for the milestone. 
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Figure 12. WIN and XYZIN Flow Charts. 
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b. Parameters Required: None. 

c. Common Blocks: MN, LOC. 

d. Called By: MAIN. 

e. Local Variables: None. 

f. Algorithm 
call BELL 

call WIN to define the map 
call SPOT for X, Y, LTR 
call BELL 

call WIN to define the altimeter 
call SPOT for Z, VI, and LTR2 

if (LTR is lower case) then convert LTR to upper case 
if (LTR2 is lower case) then convert LTR2 to upper case 
return 
end XYZIN 

9. GUNLOC 

a. Function: This subroutine marks the indicated spot with a 

"+" and draws a circle around it. 

b. Parameters Required: 

(1) GX, GY— X and Y coordinate of the point to be marked. 

(2) RAD — radius of the circle marking location. 

c. Common Blocks: MN. 

d. Called By: MAIN, SCENE. 

e. Local Variables: 

(1) ISTEP — size of the step in the loop which draws the 
circle. Small circles use fewer points, therefore, ISTEP will be larger. 

(2) Angle — angle around the circle at which a point will be drawn. 

(3) DX, DY— X and Y coordinates of the point to be drawn. 

f. Algorithm 

call WIN [define map window] 
draw cross at site 
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Figure 13. GUNLOC Flow Chart. 
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compute ISTEP 

draw dotted circle around site 

return 

end GUNLOC 

10. BEGIN 



a. Function: This subroutine initializes the graphics and 

requests the user's options. 

b. Parameters Required: None. 

c. Common Blocks: MN, PAR, OPT. 

d. Called By: MAIN. 

e. Local Variables: KON— user input: 0 indicates the user 

wishes to use default simulation parameters, any other value causes a 
call to CONCHG to allow the user to input his own parameters. 

f. Algorithm 

call IN IT [initialize graphics] 

clear screen 

write gun option prompt 

read IGUN 

write milestone option prompt 
read IMP 

write error option prompt 
read KER 

write terminal option prompt 
read IBAUD 

write parameter input prompt 
read KON 

if (KON <> 0) then call CONCHG 
set IPLOT = 1 

compute map and altimeter boundaries 

return 

end BEGIN 

11. GUNCHK 



a. Function: This subroutine checks gun locations against 

emplacement rules. 

b. Parameters Required: 

(1) X, Y--location of the gun site. 
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BEGIN 




Figure 14. BEGIN Flow Chart. 
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GUNCHK 




Figure 15. GUNCHK Flow Chart. 
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(2) IERR--error code set to 13 if emplacement rules are 

viol ated . 

c. Common Blocks: TAR. 

d. Called By: MAIN. 

e. Local Variables: DIST — distance from the gun site to the target. 

f. Algorithm 
compute DIST 

if (DIST < 3,000) then IERR = 13 

return 

end GUNCHK 

12. PRESET 

a. Function: This subroutine writes the P001 and MICE II files 

for the user. 

b. Parameters Required: PAR, PARI, PAR2, OPT. 

c. Common Blocks: None. 

d. Cal led By: None. 

e. Local Variables: 

(1) RCSTAB— radar cross-section table. 

(2) VAT1N2 — vulnerability table against type 1 and 2 weapons. 

(3) VAT3--vulnerabi 1 ity table against type 3 weapons. 

(4) VAT5--vulnerabil ity table against type 5 weapons. 

(5) TINC—total flight time, T(MNUM), divided by 1,000 
with 0.0008 added to eliminate round-off errors due to POOl's method of 
time calculation. 

(6) TINKI — temporary time marker. 

(7) TINK--array with nine elements, the Ith element has a 
value I*T(MNUM)/10. 

(8) FTFAC — conversion factor from meters to feet, set to 3.28084. 
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PRESET 




Figure 16. PRESET Flow Chart. 
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(9) XFSAM, YFSAM, ZFSAM— X, Y, and Z coordinates, in feet, of 
the missile site. 

f. Algorithm 

compute TINC AND TINK 

if (P001 file requested) then write P001 DATA file [IPNCH = 1 or 3] 
if (MICE file requested) then [IPNCH = 2 or 3] 
print MICE DATA file header 
convert X, Y, Z, and VEL from meters to feet 
print remaining data to MICE DATA 
end if 
return 
end PRESET 

13. ELFIN 



a. Function: This subroutine requests the user's output options and 

closes the graphic routines. 

b. Parameters Required: LAST— this is both a command parameter 

to ELFIN and a returned value to MAIN. Sent as a command, it has the 
following meaning: 

(1) 0 — no further action is required. 

(2) l--ask the operator whether or not he is finished with 
the flight path or wishes to continue at a later time. 

If LAST was sent as 0, it is returned as an 83. If a 1 was sent, it 
returns as follows: 

(1) 1— user wishes to continue the flight path at a later 

time. 

(2) 83--user is finished with the flight path. 

c. Common Blocks: MN, OPT. 

d. Called By: MAIN. 

e. Local Variables: ICT-- loop counter that determines how 

often the prompt line will be flashed. 
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Figure 17. ELFIN Flow Chart. 
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f. Algorithm 



write ending prompt 
compute ICT 
do I * 1 to ICT 
call BELL 
underline prompt 
end do 

call SCURSR [wait for user to finish viewing screen] 
clear screen 

call FIN [closes graphics routines] 
if (LAST <> 0) 

do until (ABS (LAST) < 2) 

write flight path completion option prompt 
read LAST 
end do 

compute LAST 
end if 

write output file option prompt 
read IPNCH 

if (LAST = 0) LAST = 83 

if (no output requested) then return [IPNCH = 0] 
if (P001 file requested) then [IPNCH = 1 or 3] 
write extended output option prompt 
read IEXT 
end if 

if (MICE file requested) then [IPNCH = 2 or 3] 
do until (ISAM > = 1 and ISAM < = 7) 
write missile option prompt 
read ISAM 
end do 
end if 
return 
end ELFIN 

14. AIMPT 



a. Function: This subroutine marks a line from the aircraft's 

current position to the target to help align the bomb release leg. 

b. Parameters Required: I— number of the current milestone. 

c. Common Blocks: PAR, TAR. 

d. Called By: MAIN. 

e. Local Variables: None. 
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Figure 




AIMPT Flow Chart. 
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f. Algorithm 



move to (X( I ) , Y( I ) ) 
draw dashed lined to target 
return 
end AIMPT 

15. CONCHG 



a. Function: This subroutine allows the operator to change the 

simulation parameters. 



b. Parameters Required: None. 

c. Common Blocks: PAR3, PAR4, TAR. 

d. Called By: BEGIN. 

e. Local Variables: K— counter to indicate which parameter the 



user wants to change. 

f. Algorithm 
clear screen 

do until (input completed) [K = 1] 
do until (K > = 1 and K < = 17) 
write prompt 
read K 
end do 

if (K > 1 and K < 16) then 

write prompt for parameter to be changed 
read new value of the parameter 
else if (K = 16) 

read parameter values form disk file PAR SAV 
else if (K = 17) 

list parameter values to the terminal 
end if [K > 1 and K < 16] 
end do [input completed (K = 1)] 
write parameter values to disk file PAR SAV 
return 
end CONCHG 



16. ERRMK 



a. Function: This subroutine sends prompts and error messages to 



the user. 
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b. Parameters Required: IERR— this indicates which message is 

to be sent to the operator. 

c. Common Blocks: ERR, MN. 

d. Called By: MAIN, VALSET, ERRCHK, SAMCHK. 

e. Local Variables: 

(1) J — column index. 

(2) MKX, MKY— working variables to help define the messaqe 

line. 

(3) K — counter which defines how many times the prompt line 
is displayed. 

f. Algorithm 

if (IERR > 20) then 
compute MKX and MKY 
do I = 1 to 6 

draw line from (MKX, MKY) to MKX + 30, MKY) 
end do 

el se 

J = 2 

if (IERR < = 6) then J = 1 
else if (IERR > 12) then J = 3 
compute K and MKY 
do I = 1 to K 

draw line from (MKERX(J), MKERY(IERR) to (MKX, MKERY ( IERR) ) 
if (IERR < 10) call BELL 
end do 
end if 
return 
end ERRNK 

17. SAMCHK 

a. Function: This subroutine checks the missile location 

for emplacement rule violations. A violation causes a call to ERRMK with 
an error code of 19. 

b. Parameters Required: 

(1) X--X coordinate of the missile site. 



83 



ERRMK 




Figure 20. ERRMK Flow Chart. 
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(2) IERR--error code, set to 0 if no violation occurs and set 
to 1 if it does. 

c. Common Blocks: None. 

d. Called By: MAIN. 

e. Local Variables: None. 

f. Algorithm 
IERR = 

if (X < 6,000) then call ERRMK (19) 

IERR = 1 
end if 
return 
end SAMCHK 
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Figure 21. SAMCHK Flow Chart. 
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VII. MODIFICATION INSTRUCTIONS 



A. GENERAL 

As stated in the introduction, one goal of this effort was to develop 
a program that would be transportable to other systems. This section 
will discuss the general requirements to achieve this conversion and 
then describe how it can be implemented in the two versions that currently 
exist at the Naval Postgraduate School. 

The first change that must be made is the conversion to the user's 
graphics system. The program requires the following capabilities: 

1. Screen and Virtual Window Definition 

TWINDO defines a window in screen coordinates while DWINDO 
defines the virtual coordinates the current screen window will assume. 
NEWPAG clears the screen, but does not change the window definitions. 

2. Move and Draw 

A "move" positions the electron beam at a point on the screen, 
but does not draw anything. A "draw" creates a straight line on the 
screen from the current beam position to the position identified in the 
parameter list. MOVABS and DRWABS are absolute screen coordinate move 
and draw commands. MOVEA and DRAWA are the virtual coordinate commands 
to accomplish these functions. MOVREL is a virtual move relative to the 
current beam position and DASHA is a virtual draw that creates a dashed 
1 ine. 
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3. Print to the Graphics Screen 



Printing to the screen creates alphanumeric characters on the 
screen, as opposed to connected lines. AMMODE enables the printing 
capabi 1 ity. 

4. Cursor Input 

Cursor input allows the user to enter a command value and the 
X and Y coordinates of a point on the screen. VCURSR accepts data in 
virtual coordinates while SCURSR works in screen coordinates. 

The user's functions for these four actions must be substituted 
for the PLOT-10 functions according to Table 1. 

The next change that must be made is to implement the user's air- 
craft performance constraints. The module VALSET contains the equations 
for computing the necessary performance values and has the ability to 
indicate boundary errors via the parameter IERR. The constraints on the 
system are contained in module ERRCHK, and performance violations are 
passed with the parameter IERR. The various values assigned to IERR are 
used by ERRMK to communicate with the user whenever the graphics routines 
are being used. Therefore, not only the error messages, but also user 
prompts must be supported by this module. There is one other constraint 
on the value assigned to IERR. When assigned a value of 12, the user's 
option to ignore errors is overridden. This allows the programmer to 
guard against situations the program is unable to handle, such as division 
by zero. 

The final change is in the format of the output files. Because the 
program was written to support a particular Naval Postgraduate School 
course, a fixed number and type of weapons is expected. The module MAIN 
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MODULE GRAPHICS REQUIREMENTS 
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accepts the input of the first six guns and one SAM site and assigns a 
seventh gun location. The module PRESET assigns the guns the following 
description: 



GUN 



TYPE 



MODE 



1-2 

3-4 

5 

6 
7 



1 

2 

3 

3 

5 



1 

1 

4 

3 

3 



To change this assignment, the module MAIN must be modified to accept and 
display the additional information and PRESET must be rewritten to 
recognize varying numbers and types of weapon sites. 

B. THE KEYBOARD VERSION (KBPIP) 

The keyboard version was written to operate on any keyboard terminal. 
To a large extent, this was simply a matter of removing the graphics 
functions from GRPIP. Modules that had only graphics functions were not 
eliminated, but were converted into stubs. The remainder of this section 
will describe the changes to the modules in KBPIP that are necessary for 
conversion. 



This module had to notify module XYZIN whether it was expecting 
weapon or milestone information. A parameter was added to XYZIN, with an 
0 indicating weapon input and a 1 for milestone data. 

2. ERRMK 

This module contains messages that were previously written on 
the screen by SCENE. It uses FORTRAN WRITE statements to notify the 



1. MAIN 
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user, rather than highlighting a previously written message. In addition, 
the input data is echo printed to assist the user, since this function 
was automatic in the graphic version. 

3. PTHPLT 

This module now writes a message indicating that the milestone 
has been accepted as valid. 

4. GUNLOC, WIN 

These modules are now simply stubs. 

5. SPOT 

This module now uses READ and WRITE rather than cursor inputs. 

This means that it must be able to identify what type of data is expected 
in order to write the appropriate prompts. The parameter LI is sent with 
a value of 0 to indicate that X and Y are to be read, and a value of 1 
indicates that the value of L2 must be checked. If L2 is 0, the calling 
routine expects only an altitude. If it is 1, the calling routine 
expects an altitude, velocity, and command. The module must then convert 
the command from the user's format to that used by MAIN. 

6. SCENE 

The entire map drawing function has been eliminated. When called 
during reset, the module prints the data for the last milestone retained 
by the user, to assist in the selection of the values for subsequent points. 

7. XYZIN 

The module is sent the parameter IV. It uses the value of this 
parameter to determine whether the calling routine needs only X, Y, and Z 
coordinates, or X, Y, Z coordinates, velocity data, and a command. It 
passes this information to SPOT via parameters LTR, LTR2, and LDM. 
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8. BEGIN 



The initialization of graphics routines has been eliminated. 

9. AIMPT 

This module now gives the distance to the target and how much 
the current X and Y values must be changed to align the flight path 
correctly. 

10. ELFIN 

The release of the graphics resources has been eliminated. 

11. CONCHG 

The screen clearing command is no longer required. 

C. THE IBM GRAPHICS VERSION (IBMPIP) 

The IBM graphics version, with its dual screens, was to a certain 
extent a merger of the PLOT-10 and keyboard versions. The necessary 
changes are described below. 

1. PTHPLT, GUNLOC, SCENE, WIN, ELFIN, AIMPT, SPOT 

IBM functions are substituted for equivalent PLOT-10 functions. 

2. BEGIN 

New screen coordinates are used. In addition, the graphics 
initialization and screen erasing functions are moved from the beginning 
to the end of the module. 

3. CONCHG 

The screen clearing function is eliminated. 

4. ERRMK 

The module flashes a small window on the graphics screen to 
indicate a message is on the alphanumeric screen. It uses the 
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alphanumeric screen to write the message. In addition to the message, 
the data input on the most recent attempt is printed if an error occurs. 
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VIII. MAP GENERATION 



To support the graphics capability of the program, it was necessary 
to provide a map of the attack area to the user. To do this, it was 
necessary to select points on the actual map and copy them to a data file for 
later use. This can be done manually with rulers and pencil, which is 
subject to all the problems involved in properly marking and transferring 
the data. An alternative was to utilize the graphics capability of the 
system to generate the map information. To accomplish this, a program 
called SCENE was written. 

The prerequisite to utilizing SCENE is a transparency of the desired 
map. SCENE expects a 6 x 4 inch transparency representing an 18,000 x 
12,000 unit field. This can be changed by changing the values of MINX, 

MAXX, MINY and MAXY and the values in the DWINDO call. 

The program starts by asking the user whether he wants to create a 
new map or continue an old one. A positive integer means a new map, zero 
or a negative number indicates an old map. If selected, the old map is 
then drawn. The user then places the transparency over the map outline 
drawn on the screen. Points are input in the following manner. First, 
the cursor is positioned under the selected point. A key is pressed to 
mark the spot. The capital "M" and "S" keys have a particular meaning. 

The "M" key informs the program that the following call will be a move, 
not a draw. The "S" key marks the final spot and informs the program to 
stop execution. All other keys indicate that the next call is a draw 
command . 
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The data is written to a FORTRAN data set 9 using 2F10.2 format. The 
data has the following meanings: 

1. Two positive val ues--these represent a data point on the map. 

2. -0.5, 0.0--this is a mark to indicate that a move to the coordinates 
in the next entry is to occur. 

3. -2.0, 0.0--this is the end of file marker. If the user is con- 
tinuing work on a map, it will be necessary to erase the original 
marker after he finishes the current session. This is done by 
editing the data file and removing the first end of file marker. 

In addition to the cursor input, data points can be entered by 
editing the file. This allows the user to smooth curves by adding 
intermediate points and to make corners connect exactly. One example of 
these capabilities is the drawing of the buildings. Rather than trying 
to exactly line up the corners, only the diagonal defining the rectangle 
was drawn with the cursor. The data file was then edited to fill in the 
missing corners. This ensured that the corners were perpendicular and 
met at the line end points. 
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IX. PROBLEMS AND IMPROVEMENTS 



Two major problem areas were encountered in terms of software develop- 
ment. The first involved the utilization of graphics resource drivers 
and the second was version control. A major problem with the PLOT-10 
graphics package is that there are errors in the Naval Postgraduate 
School's implementation of several of the translation tables. As a 
result, the system will occasionally become highly erratic; drawing 
random lines over the entire screen, or reading incorrect values from the 
cursor. This erratic behavior was the original reason the verification 
input was included in the graphics sequence. This problem remains 
uncorrected . 

The major difficulty with the IBM graphics package was the lack of 
familiarity with the package on the part of computer center personnel. 

The package was installed in April 1982, and the only documentation 
available was the IBM technical manual. Implementing IBMPIP was, 
therefore, limited to using those functions which could be easily iden- 
tified, primarily the bridge functions. Therefore, it was not possible 
to utilize the extensive capabilities of the package. As more experimenta- 
tion with the package is afforded, the capabilities of this package 
should be enhanced. In addition, there are plans to obtain a core 
graphics system which will support TEKTRONIX, IBM, and VERSATEC plotting 
routines in a device-independent manner. This means that the user will 
be able to use high-level graphic functions. These will execute equally 
well on all three systems and the device-specific calls will be generated 
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by the high-level functions at execution time. If the programmer wishes 
to use the unique capabilities of a particular device, such as cursor 
redefinition in the IBM package, he will still have to use the functions 
specifically dedicated to that device. 

Since the core system was not available, the two graphics systems 
required separate software versions to execute on their respective hard- 
ware. The non-graphics keyboard implementation required a third version. 
This caused a significant management problem. What was a simple change 
on one system was frequently difficult on another. For instance, 
correction of errors when milestones were read from the disk was quite 
simple to accomplish with the keyboard version. The prompt was displayed, 
the response was accepted, and the appropriate action was carried out. 

Once this was tested, the source statements were copied into IBMPIP and 
checked out. This, too, went well. However, the change to GRPIP was 
extremely difficult. First, the message had to be added to the message 
list in SCENE, as opposed to ERRMK in the other two versions. ERRMK had 
to be changed to accommodate a new error location. Finally, the location 
of the various error messages had to be rearranged four times before one 
was found that did not result in the new message overwriting another 
message. Similar problems occurred when converting graphic to non-graphic 
techniques. Although the functions are identical in each version, most 
changes in the program resulted in three similar, but unique, changes in 
the implementation. When the time required to recompile and test these 
versions is considered, a simple change for cosmetic effects rapidly 
loses its desirability. 
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Although not as difficult an obstacle as the software, the hardware 
did pose a problem. The capabilities of a storage tube device severely 
limited the alphanumeric interaction with the user. The first problem 
arose with GRPIP, which was how to write messages to the user without 
destroying the graphic display or overwriting a previous message. The 
solution was to write all possible messages beforehand and then identify 
their location on the screen for later use. This in turn meant a trade- 
off between a display large enough to be useful while retaining sufficient 
working space for writing the messages. With the availability of the IBM 
package, this problem was significantly reduced. With the second screen, 
alphanumeric interaction was relatively simple. The problem then became 
one of how to notify the user to change input screens. This was solved 
by adding an attention window, which flashed to inform the user that 
something was occurring on the other screen. 

There are several improvements that can be made to increase the 
program's utility. A major improvement would be to use the data input by 
the user to derive several intermediate milestones. A quick way to do 
this would be to use the averages already computed to create additional 
milestones. A better way would use the operator's input and computed 
averages to fit a curve to the points if desired by the user. Additional 
milestones would then be created by selecting intermediate points on the 
curve. In addition to smoothing the flight path, realism could be 
enhanced by providing for terrain masking. P001 provides for gun masking 
arcs and if the terrain was identified as geometric shapes, chopped conic 
mountains and a polynomial river for example, these arcs could be computed. 
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In addition to increased realism, the program could be improved 
by adding flexibility to the weapon and aircraft descriptions. The 
present program utilizes a fixed number of weapons firing at a particular 
type of aircraft. This was necessary to limit the action required by the 
students using the program. Making the number and type of weapons 
variable would require a relatively modest effort, but would greatly 
expand the software's flexibility. In addition, it would improve the 
realism of the scenario. P001 only supports one firing arc per gun. By 
making the number of guns variable, a single gun site which has several 
distinct firing arcs could be identified as several guns at one location, 
each with different firing arcs. The aircraft type can be changed by 
changing the vulnerability and radar cross-section data statements. 
Providing access to external files to obtain this information would also 
expand the flexibility of the program. 
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I. INTRODUCTION 



This aircraft attrition study is designed to present the student with 
an opportunity to see first-hand how the survivability of an aircraft can 
be evaluated in a given combat scenario. The methods employed in this 
study are those used by both industry and government when making decisions 
in the survivability analysis and design of an aircraft weapon system. 

In this study, one computer program named P001 (the AFATL Antiaricraft 
Artillery Simulation Computer Program) will be used to simulate the 
flight of a typical Naval attack aircraft through a hostile antiaircraft 
artillery (AAA) environment and to compute the aircraft probability of 
survival. Another computer program, MICE II (the Missile intercept 
Capabil ity Evaluation Program) , will be used to compute the survivability 
of the aircraft on the same flight path against a typical short- to 
medium-range surf ace-to-air missile (SAM).^ 



^The DoD specifies the use of P001 and MICE in all nonnuclear 
survivability assessments in MIL-STD-2069, REQUIREMENTS FOR AIRCRAFT 
NONNUCLEAR SURVIVABILITY PROGRAM, 24 August 1981. 
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II. PROBLEM DEFINITION 



A. You are going to conduct a survivability assessment of a familiar 
Naval aircraft, shown in Figs. 1 and 2, on a typical attack mission 
to destroy the bridge shown in Fig. 3. 

B. The class will be divided into groups of four, with two members in 
each group on the blue team and two members on the red team. 

C. Each team will use P001 and MICE II to determine the survivability 
of the aircraft in the class problem scenario, as follows: 

1. Each team will select a flight path to the bridge according to 
the rules of the scenario given in Section IV. Keep this path a 
secret. 

2. Each team will also select the locations of six AAA emplacements 
and one SAM that will defend the bridge against an air attack. 
Locate the weapons according to the order of battle given in 
Section IV. Keep these locations secret, also. 

3. Each team will conduct an attack against the other team in the 
group. 

4. The input data file for the computer runs for the blue team 
attacking the bridge defended by the red team will consist of the 
flight path of the blue aircraft flying through the AAA and SAM 
emplacements selected by the red team. 

5. Conversely, the input data file for the computer runs by the 

red team against the blue team will consist of the flight path of 
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Figure 




the red aircraft flying through the AAA and SAM emplacements 
selected by the blue team. 

0. May the best team win. A small prize will be awarded to the team 
whose aircraft has the highest probability of survival against their 
opponent's weapon distribution. 
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III. SCENARIO DESCRIPTION 



A. This scenario is purely for instructional purposes and is not based 
on any actual or planned combat attack situation. The target site, 
order of battle, and flight path and weapon delivery parameter limits 
have been chosen only to provide guidelines for the class problem. As 
much realism has been introduced for the players as possible while 
retaining an unclassified scenario. 

B. Your target is the bridge shown in Fig. 3 located at: 

X: 14,000 meters 

Y: 7,220 meters 

Z: 20 meters 

Heavy military supply traffic has been reported in this area. 

Your mission is to destroy this vital supply link. 

C. The following order of battle has been gathered from intelligence 
reports of the target area: 

SAM - one site in the vicinity of the target 

AAA - two type 1 mode 1 

two type 2 mode 1 

one type 3 mode 4 

one type 3 mode 3 

one type 5 mode 3 

(NOTE: Gun types and their relationship to AAA and the SAM type 

will be discussed in class.) 
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0. The SAM threat requires that the inbound approach to the target be 
made from the west at low level. A pop-up maneuver is required to 
visually identify the target followed by a dive bombing run to weapon 
delivery. The aircraft ordnance consists of MK82 500-pound Snakeye 
bombs. Egress must be made to either the north or south, depending 
on individual strategy. 

E. The following is a list of scenario limitations to be used in the 
development of your strategy: 

1. Aircraft cruise speed— 90 to 220 meters per second (400 to 500 
knots) . 

2. Inbound altitude—70 to 450 meters. 

3. Maneuvering—the aircraft is limited by its thrust, speed brakes, 
and loading. A maximum speed of approximately 225 meters/sec is 
attainable before bomb release, and it increases to about 235 
after weapon release. The thrust available and speed brakes 
limit the amount of velocity can be changed. Combined with the 
loading, they serve to limit the amount of turn allowed. In 
both cases, the longer the leg, the more change can be accepted. 

4. Pop-up maneuver 

a. Commence maneuver--a maximum of 6,000 meters from the target. 

b. Maneuver altitude — in order to locate the target, you must 
pop-up to a minimum altitude of 1,000 meters. 

5. Ordinance delivery 

a. A bores ighted glide/dive delivery is required. 

b. Alignment — the leg immediately prior to the bomb release 
point must be straight, last 2.33 seconds, and must have 
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a heading within 5° of the heading to the target from the 
bomb release point. 

c. Bomb release range--between 100 and 1,000 meters from the 
target . 

d. Bomb release altitude — between 100 and 2,000 meters. 

6. Weapons placement 

a. Two type 1 mode 1, two type 2 mode 1, one type 3 mode 4, 
and one type 3 mode 3 weapons are available for defense 
placement. Neither of the type 3 weapons may be placed 
within 3,000 meters of the center of the bridge. A type 5 
mode 3 weapon is fixed at (X, Y, Z). 

b. One type 5 SAM system is to be placed anywhere on the roads 
eastward of the six kilometer X axis position. 

F. Begin the flight path at an entry point of your choosing along 
the western boundary and end it along the northern or southern 
boundary. Anticipate the AAA and SAM placement for bridge defense 
and plan you flight path accordingly. 

6. Locate the AAA and SAM weapons given in the order of battle to best 
defend the bridge against your opponent's attacking aircraft. 
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IV. INPUT OATA FORMAT 



Three preprocessor programs for P001 and MICE II are available 
at the Naval Postgraduate School. These programs create the scenario, 
flight path, aircraft vulnerability, and weapon location and character- 
istics data files necessary for the execution of P001 and MICE II. The 
preprocessing programs are GRPIP (Graphic P001/MICE II Input Program), 

KBPIP (Keyboard P001/MICE II Input Program) and IBMPIP (IBM P001/MICE II 
Input Program). GRPIP is for use on the TEKTRONIX 4010 family of terminals, 
KBPIP can be used at any keyboard, and IBMPIP runs on IBM 3277 graphics 
terminals. All of these programs operate in the same fashion, only the 
manner of data entry is different. 

A. PROCEDURE FOR EXECUTING P001 AND MICE II 

1. Log on to VMS 

2. ENTER: CP LINK 191 192 R 

the message "ENTER READ PASSWORD:" will appear 

ENTER: 

ENTER: ACC 192 B 

a. If you have never used GRPIP or IBMPIP, the following file 
contains the points for drwing the scenario map. 

ENTER: COPYFILE MAP DATA B = = A 

3. a. To use GRPIP, ENTER: GRPIP 

b. To use KBPIP, ENTER: KBPIP 

c. To use IBMPIP, ENTER: IBMPIP 

d. Execute the selected preprocessor program (see the following 
sections 

4. To execute P001 

a. XEDIT file P001 DATA and insert your JOB card as the first 
line (see computer center manual MVS-01 pg. 18) 

b. Then FILE P001 DATA 

c. ENTER: SUBMIT P001 DATA 

5. To Execute MICE II 

a. XEDIT MICE II DATA and insert your JOB card as the first line, 
line 

b. Then FILE MICE DATA 

c. ENTER: SUBMIT MICE DATA 
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8. EXECUTING GRPIP (TEKTRONIX Terminals Only) 

NOTE: The TEKTRONIX terminal at the computer center does not 

react to the "RETURN" button. Push "CTRL" and "S" simultaneously for a 
carriage return. 

NOTE: For the terminal at the computer center, the cursor will 

disappear, but the entry will not be accepted when the key is pressed. 

On this terminal, press "CTRL" "S" after pressing a key to enter the 
data. 

1. Enter: GRPIP 

The following message will appear: 

NOTICE YOU ARE LINKED TO 491 AS D FOR TEKTRONIC ROUTINES 

This is followed by a delay as the program loads. When loading 
is complete, the message "EXECUTION BEGINS" will appear, followed by the 
screen flashing twice. 

2. Initialization 

The program will request data necessary to initialize the system. 
The following message will appear: 

GUNS: 0 = DISK FILE; 1 = TERMINAL READ; 2 = PRESET 

a. FILE: This reads the file created on a previous run using 

option 1. Do not select this option if you have never entered gun and 
missile locations at the terminal. 

b. TERMINAL: With this option you enter your own locations. 

The gun and missile locations will be saved for later use. 

c. PRESET: GRPIP has preset gun and missile sites if you 

want to use them. 
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The next message you will see will be: 

MILESTONE INPUT: 0 = DISK FILE; 1 = TERMINAL 

a. DISK: This reads a previously created file. Do not use this 

option if you have never run GRP IP, KBPIP, or IBMPIP. 

b. TERMINAL: This allows you to create a new flight path. 

When this is done, the following message will be displayed: 

ERROR CHECKING: 0 = NO CHECKING; 1 = CHECK FOR ERRORS 

a. NO CHECKING: With this option game and flight rule errors 

will be ignored. 

b. CHECK FOR ERRORS: With this option, errors will result in 

the operator being notified of the cause. When the terminal input option 
is in effect, the milestone data will be ignored and new data requested. 
If the disk input option is in effect, the user will see the following 
prompt if an error occurs during execution: 

DO YOU WISH TO FIX THE ERROR: 0 = NO, USE THE POINT 1 = YES 

a. 0: The program will ignore the error and use the data. 

b. 1: The program will request new data for the current mile- 
stone only. Subsequent data will be obtained from the disk. Note that 
the correction may cause errors in subsequent milestones. 

The next message to appear will be: 

FLIGHT AND GAME PARAMETERS: 0 = DEFAULT; 1 = USER INPUT 

a. DEFAULT: This uses preset game and flight parameters for 

error checking. 

b. USER INPUT: This allows the user to reset error parameters 
to reflect different game and flight rules. See PARAMETER CHANGING for 
further information. 
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3. Gun and Missile Entry 

Following initialization, the screen will go blank and the 
following message will appear: 

VILLAGE: 0 = NOT DRAWN; 1 = VILLAGE DRAWN 

a. NOT DRAWN: This option results in only the gun, SAM, and 

target locations being drawn. This saves a great deal of time, 
particularly on 300 BAUD terminals. 

b. VILLAGE DRAWN: This option draws the village, road, and 

river. When inputting the gun and SAM sites, this option should be 
chosen to meet the game requirements. Drawing the full map takes about a 
minute at 1,200 BAUD terminals and about 5 minutes at the slower ones. 

If the preset (option 0) or file (option 2) locations are 
used for the gun and missile sites, they will be drawn immediately. The 
gun sites are represented by a "+" surrounded by a dotted ring at the 
engagement radius. The SAM site is a "+" with a small circle around it. 
The target is a "+" with two small circles around it. User input of the 
gun sites is as follows: 

a. The message ENTER GUN COORDINATES will be underlined. 

b. A bell will sound and the map border will flash. 

c. A cursor will appear. 

d. Position the cursor with the thumbwheels on the right of the 
terminal . 

e. Press any key. The cursor will disappear, a point will 
appear, and the cursor will re-appear. If the cursor reappears, but not 
the point, or if you change your mind, press "N" to cancel the input. 

f. Press any key except "N" to accept the X and Y values. 
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g. A bell will ring and the altimeter border will flash. 

h. Position the cursor in the altimeter and enter the point as 
above. Note that the altimeter is marked in 100 1 s of meters. 

i. Repeat steps b-h five times. The guns are input in the 
following order: 

(1) Two Type 1 mode l--l,000m engagement radius 

(2) Two Type 2 mode 1 — 1,400m engagement radius 

(3) One Type 3 mode 4 — 2,500m engagement radius 

(4) One Type 3 mode 3 — 2,500m engagement radius 

NOTE: The type 3 guns may not be within 3,000 meters of the target. If 

you attempt this, the message TOO CLOSE TO TGT will be underlined and a 
bell will ring several times. The point will be rejected and you will 
have to enter it again. 

NOTE: Entering a weapon (gun or missile) altitude greater than 1,000 
meters will abort the program and destroy a previously created GUN LOC file. 

When all six gun sites are correctly entered, the message ENTER 
MISSILE LOCATION will be underlined. Repeat steps b-h. 

NOTE: The X coordinate must be greater than 6,000 meters or the error 

message X COORDINATE < 6,000 will be presented. 

4. Milestone Entry 

When you have finished entering the gun and missile sites, the bell 
will ring and the message ENTER MILESTONES will be highlighted in the error 
section. Enter milestones using steps 3. b-h with the following exceptions: 
a. Pressing "A": This signifies that an aiming line is desired. 

A dashed line to the target will appear to assist in lining up for the 
bomb release leg. 
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b. Pressing "B": This signifies the bomb release milestone. 

c. Pressing "R": This resets the problem. The screen will go 
blank and you will be asked the milestone at which to reset the flight 
path. This destroys the map and it must be redrawn. This can cause a 
long wait at the slow terminals. 

d. Pressing "S": This stops the program. The point is plotted, 

but not checked for errors. 

The special keys must be pressed when the point is verified, 
not when it is first selected. 

e. The velocity must be entered for each milestone. The hori- 
zontal axis of the altimeter is velocity. The tic marks are at 50 
meter/sec intervals from 50 to 300 meter/sec. If error checking is used, 
the minimum speed is 90 meter/sec. Velocity is limited to 260 meter/sec 
before, and 310 meter/sec after bomb release. Any time a game rule 

or flight path error is detected, the error will be marked by underlining 
and ringing the bell. Whenever an error occurs, the X/Y/Z and velocity 
values are rejected. The Bomb, Reset, and Stop commands take priority 
over errors while the Aim is executed only at legal milestones. This 
means that the operator can always stop or reset the program. 

f. Repeat steps 1-d until all milestones are entered. See 
Section E (Output Selection) to finish the program. 

C. EXECUTING KBPIP 
1. Enter: KBPIP 

The terminal will display the file definitions for KBPIP. 

This is followed by a delay as the program loads. When loading is 
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complete, the message "EXECUTION BEGINS" will appear, followed by the 
screen clearing. 

2. Initialization 

The program will request data necessary to initialize the system. 
The following message will appear: 

GUNS: 0 = DISK FILE; 1 = TERMINAL READ; 2 = PRESET 

a. FILE: This reads the file created on a previous run using 

option 1. Do not select this option if you have never entered gun and 
missile locations at the terminal. 

b. TERMINAL: With this option you enter your own locations. 

The gun and missile locations will be saved for later use. 

c. PRESET: GRP IP has preset gun and missile sites if you 

want to use them. 

The next message you will see will be: 

MILESTONE INPUT: 0 = DISK FILE; 1 = TERMINAL 

a. DISK: This reads a previously created file. Do not use this 

option if you have never run GRPIP, KBPIP, or IBMPIP. 

b. TERMINAL: This allows you to create a new flight path. 

When this is done, the following message will be displayed: 

ERROR CHECKING: 0 = NO CHECKING; 1 = CHECK FOR ERRORS 

a. NO CHECKING: With this option game and flight rule errors 

will be ignored. 

b. CHECK FOR ERRORS: With this option, errors will result in 

the operator being notified of the cause. When the terminal input option 
is in effect, the milestone data will be ignored and new data requested. 
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If the disk input option is in effect, the user will see the following 
prompt if an error occurs during execution: 

DO YOU WISH TO FIX THE ERROR: 0 = NO, USE THE POINT 1 = YES 

a. 0: The program will ignore the error and use the data. 

b. 1: The program will request new data for the current mile- 
stone only. Subsequent data will be obtained from the disk. Note that 
the correction may cause errors in subsequent milestones. 

The next message to appear will be: 

FLIGHT AND GAME PARAMETERS: 0 = DEFAULT; 1 = USER INPUT 

a. DEFAULT: This uses preset game and flight parameters for 

error checking. 

b. USER INPUT: This allows the user to reset error parameters 
to reflect different game and flight rules. See PARAMETER CHANGING for 
further information. 

3. Gun and Missile Entry 

If preset (option 0) or file (option 2) locations are used, the 
gun and missile sites will be automatically entered. User input of the 
gun sites is as follows: 

a. The message ENTER GUN LOCATIONS will appear, followed by: 

b. ENTER X AND Y COORDINATES. 

c. Enter the desired values. 

d. The message ENTER ALTITUDE will appear. 

e. Enter the desired altitude. 

f. Repeat b-e five times. The guns are input in the following 

order: 
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(1) Two Type 1 mode 1-- 1,000m engagement radius 

(2) Two Type 2 mode l--l,400m engagement radius 

(3) One Type 3 mode 4--2,500m engagement radius 

(4) One Type 3 mode 3 — 2,500m engagement radius 

NOTE: The type 3 guns may not be within 3,000 meters of the target. If 

you attempt this, the message TOO CLOSE TO TGT will be displayed. The 
point will be rejected and you will have to enter it again. 

NOTE: Entering a weapon (gun or missile) altitude greater than 1,000 
meters will abort the program and destroy a previously created GUN LOC file. 

When all six gun sites are correctly entered, the message ENTER 
MISSILE LOCATION will be displayed. Repeat steps b-e. 

NOTE: The X coordinate must be greater than 6,000 meters or the error 

message X COORDINATE < 6,000 will be presented. 

4. Milestone Entry 

When you have finished entering the gun and missile sites, the 
message ENTER MILESTONES will be displayed. Enter milestones using the 
following steps: 

a. The message ENTER X AND Y COORDINATES will be displayed. 

b. Enter the desired coordinates. 

c. The message ENTER ALT., VEL., AND COMMAND: 0 = NONE; 

1 = AIM; 2 = BOMB; 3 = RESET; 4 = STOP will then appear. 

d. Enter the desired velocity and command. The results of 
commands are: 

(0) NONE: no special action occurs. 

(1) AIM: This will provide the distance to the target and 

the X and Y components for 100 meters along the aiming line. 
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(2) BOMB: The bomb release rules are checked. 

(3) RESET: The program will ask you at what point you want 

to reset the program. If selected point is before the bomb release 
point, the release checks will be cancelled. 

(4) STOP: The final milestone is accepted and milestone 

input terminates. If this command is given on the first milestone, the 
program will stop immediately, otherwise the new milestone file is 
written and output options are requested before stopping. See Section E. 

Any time a game rule error is detected, the error will be dis- 
played. Whenever an error occurs, the X/Y/Z/VEL values are rejected. The 
Bomb, Reset, and Stop commands take priority over an error, while the Aim 
command will be accepted only at legal milestones. This means the 
operator can always get out by executing a Stop. 

D. EXECUTING IBMPIP (TEKTRONIX Terminals Only) 

1. Enter: IBMPIP 

The following message will appear: EXECUTION BEGINS. 

This is followed by a delay as the program loads. When loading 
is complete, the message "EXECUTION BEGINS" will appear, followed by the 
screen flashing twice. 

2. Initialization 

The program will request data necessary to initialize the system. 
The following message will appear: 

GUNS: 0 = DISK FILE; 1 = TERMINAL READ; 2 = PRESET 

a. FILE: This reads the file created on a previous run using 

option 1. Do not select this option if you have never entered gun and 
missile locations at the terminal. 
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b. TERMINAL: With this option you enter your own locations. 

The gun and missile locations will be saved for later use. 

c. PRESET: GRPIP has preset gun and missile sites if you 

want to use them. 

The next message you will see will be: 

MILESTONE INPUT: 0 = DISK FILE; 1 = TERMINAL 

a. DISK: This reads a previously created file. Do not use this 

option if you have never run GRPIP, KBPIP, or IBMPIP. 

b. TERMINAL: This allows you to create a new flight path. 

When this is done, the following message will be displayed: 

ERROR CHECKING: 0 = NO CHECKING; 1 = CHECK FOR ERRORS 

a. NO CHECKING: With this option game and flight rule errors 

will be ignored. 

b. CHECK FOR ERRORS: With this option, errors will result in 

the operator being notified of the cause. When the terminal input option 
is in effect, the milestone data will be ignored and new data requested. 
If the disk input option is in effect, the user will see the following 
prompt if an error occurs during execution: 

DO YOU WISH TO FIX THE ERROR: 0 = NO, USE THE POINT 1 = YES 

a. 0: The program will ignore the error and use the data. 

b. 1: The program will request new data for the current mile- 
stone only. Subsequent data will be obtained from the disk. Note that 
the correction may cause errors in subsequent milestones. 

The next message to appear will be: 

FLIGHT AND GAME PARAMETERS: 0 = DEFAULT; 1 = USER INPUT 
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a. DEFAULT: This uses preset game and flight parameters for 

error checking. 

b. USER INPUT: This allows the user to reset error parameters 
to reflect different game and flight rules. See PARAMETER CHANGING for 
further information. 

3. Gun and Missile Entry 

Following initialization, the screen will go blank and the 
following message will appear: 

VILLAGE: 0 = NOT DRAWN; 1 = VILLAGE DRAWN 

a. NOT DRAWN: This option results in only the gun, SAM, and 

target locations being drawn. This saves a great deal of time, 
particularly on 300 BAUD terminals. 

b. VILLAGE DRAWN: This option draws the village, road, and 

river. When inputting the gun and SAM sites, this option should be 
chosen to meet the game requirements. Drawing the full map takes about a 
minute at 1,200 BAUD terminals and about 5 minutes at the slower ones. 

If the preset (option 0) or file (option 2) locations are 
used for the gun and missile sites, they will be drawn immediately. The 
gun sites are represented by a "+" surrounded by a dotted ring at the 
engagement radius. The SAM site is a "+" with a small circle around it. 
The target is a "+" with two small circles around it. User input of the 
gun sites are as follows: 

a. The message ENTER GUN COORDINATES will be displayed. Press 
the "CLEAR" key on the upper left part of the keyboard. 

b. The map border will flash and a cgrsor will appear. 



121 



c. Position the cursor with the joystick on the right of the 
terminal . 

d. Press any light grey key. The cursor will disappear, a point 
will appear, and the cursor will re-appear. 

e. Press any PF key to accept the X and Y values, press a grey 
key to reject it. Repeat d. and e. if the point is rejected. 

f. The altimeter border will flash. 

g. Position the cursor in the altimeter and enter the point as 
above. Note that the altimeter is marked in 100's of meters. 

h. Repeat steps b-h five times. The guns are input in the 
following order: 

(1) Two Type 1 mode 1 — 1,000m engagement radius 

(2) Two Type 2 mode 1 — 1,400m engagement radius 

(3) One Type 3 mode 4--2,500m engagement radius 

(4) One Type 3 mode 3 — 2,500m engagement radius 

NOTE: The type 3 guns may not be within 3,000 meters of the target. If 

you attempt this, the message TOO CLOSE TO TGT will be underlined and a 
bell will ring several times. The point will be rejected and you will 
have to enter it again. 

NOTE: Entering a weapon (gun or missile) altitude greater than 1,000 
meters will abort the program and destroy a previously created GUN LOC file. 

When all six gun sites are correctly entered, the message ENTER 
MISSILE LOCATION will appear. Press the "CLEAR" key and repeat steps 
b-g. 

NOTE: The X coordinate must be greater than 6,000 meters or the error 

message X COORDINATE < 6,000 will be presented. 
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4. Milestone Entry 

When you have finished entering the gun and missile sites, the 
bell will ring and the message ENTER MILESTONES will appear on the IBM 
terminal. Press "CLEAR." Enter milestones using steps 3.b-h with the 
following exceptions: 

a. Pressing "PF1": This signifies that an aiming line is 

desired. A dashed line to the target will appear to assist in lining up 
for the bomb release leg. 

b. Pressing "PF2": This signifies the bomb release milestone. 

c. Pressing "PF3": This resets the problem. The screen will go 
blank and you will be asked the milestone at which to reset the flight 
path. This destroys the map and it must be redrawn. This can cause a 
long wait at the slow terminals. 

d. Pressing "PF4": This stops the program. The point is plotted, 

but not checked for errors. 

The special keys must be pressed after the dot has appeared. 
Press PF keys 5-12 to accept the pooint without any special option 
selected. 

e. The velocity must be entered for each milestone. The hori- 
zontal axis of the altimeter is velocity. The tic marks are at 50 
meter/sec intervals from 50 to 300 meter/sec. If error checking is used, 
the minimum speed is 90 meter/sec. Velocity is limited to 260 meter/sec 
before, and 310 meter/sec after bomb release. Any time a game rule 

or flight path error is detected, the error will be marked by a thin 
rectangle flashing on the right side of the graphics screen. The error 
message will appear on the IBM screen. Press "CLEAR" and resume entering 
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milestones. Whenever an error occurs, the X/Y/Z and velocity values are 
rejected. The Bomb, Reset, and Stop commands take priority over errors 
while the Aim is executed only at legal milestones. This means that the 
operator can always stop or reset the program. 

E. OUTPUT SELECTION (ALL VERSIONS) 

When new milestones or weapons have been entered, the program writes 
them to disk file PTS LOC for later use. If a new fliqht path was 
created, the program then displays: 

ARE YOU FINISHED WITH THIS FLIGHT PATH: 0 = NO; 1 = YES 

a. NO: This marks the data with an end of data command. When read 

by GRPIP, KBPIP, or IBMPIP, no further points can be added. 

b. YES: This marks the file with a continuation command. When 

GRPIP, IBMPIP, or KBPIP finish reading the file on a later run, they will 
ask the operator to continue entering milestones. 

The computer then prints: 

OUTPUT FILE: 0 = NO OUTPUT; 1 = POOl FILE ONLY; 

2 = MICE FILE ONLY; 3 = POOl & MICE FILES 
The POOl file is located on your disk as POOl DATA and the MICE file 
is called MICE DATA. 

F. HARD COPY 

There are three methods of obtaining a hard copy of the flight 
path and weapon sites. The first uses the TEKTRONIX plotter, the second 
uses the VERSATEC plotter, and the third uses the TEKTRONIX hard copy 
device. 

To use the TEKTRONIX plotter, it is necessary to connect the TEKTRONIX 
terminal to the plotter and then to the modem. Set the corners and then 
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leave the plotter on LOAD. Before the final milestone is entered, press 
"R" for the reset option. After the request for starting point is 
printed, take the plotter out of LOAD. The plotter will plot the mile- 
stones, weapon sites, and, if requested, the village. Finish inputting 
the last milestone. The plotter will plot the final milestones. Before 
the output selection is started, set the plotter back to LOAD and finish 
running the program. 

To use the VERSATEC plotter, two methods are available. First, a map 
of the scenario only can be made. The other option is to get a complete 
plot of the scenario, milestones, and weapon sites. 

To get only the map, perform the following steps: 

a. ENTER: COPY VERSA PLOT B = = A. 

b. XEDIT VERSA PLOT and put your JOB card in as the first entry. 

c. FILE VERSA PLOT. 

d. ENTER: SUBMIT VERSA PLOT. 

To get a complete drawing, perform the following: 

a. ENTER: COPY HDR DATA B PTS LOC A PLOT MAP A. 

b. XEDIT PLOT MAP and put your JOB card in as the first entry and /* 
as the final one. 

c. FILE PLOT MAP. 

d. ENTER: SUBMIT PLOT MAP. 

The VERSATEC maps can be picked up at the computer center printer 
room. 

The TEKTRONIX hard copy device is very simple to use. Turn it on 
and allow it to warm up, about 15 minutes. This warm-up can be done 
while you are running GRPIP or IB MP IP. When you want a copy, press the 
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button marked COPY. You will see a vertical line sweep across the 
terminal screen. Soon after this, the hard copy device will provide your 
copy. Several copies may be necessary to properly adjust the intensity. 

On the 622 (IBMPIP) terminal, this intensity can also be adjusted using 
the knob on the bottom right part of the terminal marked HARD COPY 
INTENSITY. 

G. CHANGING PARAMETERS 

When this option is selected, the following message will appear: 

SELECT PARAMETER TO BE CHANGED: 1 = NO MORE CHANGES 

2 = MAX LIFT COEFF: 3 = WING LOADING; 4 = STALL SPEED 
5 = MAX G FORCE; 6 = MIN ALT; 7= MAX ALT (< 2,200 MTR) 

8 = DISTANCE TO TARGET BEFORE POPUP ALLOWED 

9 = MAX APPROACH ALT; 10 = MAX T/W RATIO; 11 = DRAG COEFF. W/0 LIFT 
12 = LIFT DRAG CONSTANT; 13 = MAX SPD WITH BOMB 

14 = MAX SPD W/0 BOMB; 15 = TARGET COORDINATES 
16 READ PARAMETER FILE; 17 = LIST PARAMETERS 

Enter the desired value. If a number between 2 and 5 is selected, 
another prompt will appear. Enter the desired value. If 16 is chosen, 
disk file PAR SAV will be read; do not choose this option if you have 
never changed parameters. A 17 will list the current values of the 
parameters. To exit, select a 1. This will write the current parameter 
values to PAR SAV and return to the main program. 
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APPENDIX B 



GRP IP PROGRAM LISTING 



COMMON /L0C/X1 , Y1 ,Z 1 ,71, LTR, LT 52 
COMMON/M N/ I BAUD, MIN Y. MAXY , MIN X, M AXX 



MINI , MAX 1 



211 



212 

220 



250 
2 52 



2 60 
265 



(200) , VEL (200) 



COMMON/P AR/X (2 00) . Y (260) .Z (2 00 ) , H D3 ( 500) , CA (20 0) , R A 
COMMON /PAR 1/XDOT (20O),YDOT (200 ,ZDOT (200) , MNUM , M3R 
COMMON/P AR2/T (200) ,XGUN(7) ,YGUN(7) ,ZGUN(7) , XS A M , YS AM , ZS AM , GR ( 7) 
CCMMON/OPT/I GU N,IPNCH, IEXT , IS A M, IMP, KER 
MBR=0 
MNUM=0 
T (1) =0. 

CALL BEGIN 
CALL SCENE (0,0) 

REWIND 10 
IF (IGUN .NE. 1) 



GOTO 25 0 



IGUN = 1== > READ GUN SITES FROM TERMINAL 

CALL ERBMK( 16 ) 

DO 212 1=1,6 
IERR=0 
CALL XYZIN 
XGUN (I) =X 1 
YGUN (I) =Y 1 
ZGUNjl) =Z1 
IF (Z1.GE. 1000.) 

IF I ,GE " 

IF (IERR 
CALL 
GOTO 



STOP 

5) CALL GUNCHK (X 1,Y1,I ERR) 
EQ. 0) GOTO 212 
ERRMK (IERR) 

211 



WRITE (10,501)X1,Y1 ,Z1 
CALL SREMK ( 14) 

CALL XYZIN 
XSAM= X 1 
YSAM=Y1 
ZS AM=Z 1 

IF (Z1 . GE.1 000.) STOP 
CALL SAMCHK (X 1.IERR) 

IF (IERF .NE. 0) GOTO 220 
WRITE ( 1 0,50 1) XI ,Y1 , Z1 

IGUN= 2=== > READ GUN SITES FROM DATA FILE 

IF (IGUN .NE. 0) GO TO 260 
DO 252 1=1 ,6 

READ (10.501) XGUN (I) , YGUN (I) ,ZGUN (I) 

READ (10, 50 1) XSAM,YSAM,ZSAM 

DRAW GUN SITES AND ENGAGEMENT CIRCLES 

DO 265 1=1,7 

CALL GUNLOC (XGUN (I) , YGUN (I) ,GR (I) ) 

CALL GUNLOC (XSAM,YSAM, 150.) 



T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T 3 
T3 
T3 
73 
T3 
73 
T3 
T3 
T3 
T3 
T3 
T 3 
T3 
T3 
T 3 
T3 
T3 
T 3 
T3 
T 3 
T3 
T 3 
T 3 
T 3 
T 3 
T 3 
T3 
T 3 
T3 
T3 
T3 
T3 
T 3 
T 3 
T 3 
T3 
T 3 
T3 
T 3 
T3 
T3 
T3 
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FILE: T3 



FORTRAN 



NAVAL POSTGRADUATE SCHOOL 



THIS SECTION ACCEPTS THE FLIGHT MILESTONES 

FTFAC= 3 . 28084 
DGFAC=57. 29578 
CALL ERRHK (1 5) 

REWIND 1 1 
300 MNUM=MNUM+1 

READ MILESTONES FROM THE DISK 

302 IF (IMP .NE. 0) GOTO 305 

READ ( 11,6 25) X (MNOM) ,Y (MNDM) , Z ( MNO M) ,VEL (MNDM) , LTR 



IF (X(MNUM) 
IF (LTR . EQ. 
LTR2=LTR 
GOTO 308 



IE. 0. 1) 
1) IMP=1 



GOTO 302 



3 05 



READ MILESTONES FROM THE TERMINAL 
CALL XYZIN 



MNDM 

MNUM 



(MNDM) =Z1 
El 



=X1 
= Y1 



(MNDM) =V1 

COMPUTE FLIGHT PARAMETERS AND CHECK FOR ERRORS OR USER COMMANDS 



3 08 



AND. (LTR . E 
1) GOTO 30 



.83 .OR. LTR2.EQ.83)> STOP 



IF (MNUM. EQ.1 
IF (MNUM .EQ 
IERR=0 
CALL VALSET (IERR) 

IF (( (LTR.EQ. 82) .OR. (LTR2. EQ. 82) ) . A ND. ( IMP. NE. 0) ) GOTO 350 
IF ( (LTR .EQ. 66) .OR. (LTR2 . EQ. 66)) MBR=MNUM 
IF ((LTR .EQ. 83) .OR. (LTR 2. EQ. 83)) GOTO 370 
IF (IERR .EQ. 0 ) CALL ERRCHK ( IERR) 

IF ( (IERR*KER .EQ. 0) .AND. (IERR . N E. 12)) GOTO 310 
CALL ERRMK(IERR) 

IF (IMP .NE. 0) GO TO 305 
CALL ERRM K ( 20) 

READ (5.*) ICOR 

IF (ICOR. EQ.1) GO TO 305 

MILESTONE ACCEPTED, RESTART THE SEQUENCE 



310 



350 



CALL PTHPLT 
IF (LTR .EQ. 
GOTO 300 



65 .OR. LTR 2 .EQ. 65) CALL A I MPT (MNUM) 



THIS SECTION RESETS THE DATA 

CALL SCENE (1 ,ICT) 

REWIND 19 

IF (MBR .GT. ICT) MBR=0 



COMPLETE RESTART 

IF (ICT .GT. 1) 
MNUM=0 
GOTO 260 



GOTO 352 



352 

355 



DRAW RETAINED MILESTONES 

IF ((ICT .GE. MNUM) .AND, 
DO 3 55 MNUM=2 , ICT 
CALL PTHPLT 
MNUM= MNUM- 1 
GOTO 260 



(MNUM .GE. 3)) ICT=M NU M- 1 



T3 
T3 
T3 
T3 
T 3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T 3 
T3 
T 3 
T3 
T 3 
T 3 
T3 
T3 
T3 
T 3 
T3 
T 3 
T3 
T3 
T3 
T 3 
T3 
T3 
T3 
T3 
T3 
T3 



0C 

or. 

oc 

or 

oc 

oc 

oc 

oc 

oc 

oc 

oc 

oc 

oc 

00 

oc 

oc 

oc 

oc 

oc 

00 

oc 

oc 

oc 

oc 

oc 

00 

oc 



01 
0 1 



01 
0 
0 
0 
0 
0 
0 
0 

01 
0 1 
01 
0 1 
01 
0 1 
0 1 
0 1 
0 1 
01 
0 1 
0 1 
0 1 



0 1 C 
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FILE: T3 



FORTRAN A 



NAVAL POSTGRAD OATE SCHOOL 



C 

C 

C 



THIS SECTION TERMINATES THE PROGRAM 



3 70 



C 

C 

C 



BLANK=0. 

CALL PTHFLT 

LAST=IMP 

CALL ELFIN (LAST) 



COMPUTE FLIGHT PARAMETERS FOR FINAL LEG 



DX=X 
D Y=Y 
DZ=Z 



MNUM 
M NUM 
MNUM 



371 



X (MNUM- 1 
Y (MNUM-1 
Z (MNUM-1 

RA (MNUM) =0. 

CA(MNUM =ATAN2(DZ,SQRT(DX**2 + 
IF ((DX .EQ. 0.) .OR. jDY . EQ. 

HDG(MNUM) =AT AN2 ( DY , DX) 
GOTO 372 
0 



DY*72 

0 .)) 



g£)T0 371 



372 



C 

C 

C 

C 




.EQ. 
.EQ. 
.EQ. 
.EQ. 
MNUM) =VEL 
MNUM =V EL 



0 . 

0 . 

0 . 



.AND. 

.AND. 

.AND. 

.AND. 

hNUM) *COS (HDG (MNUM) , 
MNUM) *SIN (HDG (MNUM) ) 




HDG (MNUM) =1 . 57079 
HDG (MNUM) =-1.57079 
HDG (MNUM) =3.14 159 
HDG (MNUM =0. 



MNUM) =VSL (MNUM) ^SIN (CA (MNUM) ) 



COS ( CA (MNU Mj j 



COS ( CA (MNUM) 



CREATES NEW " PTS 
HAVE BEEN INPUT 



LOC '» IF NEW WEAPON OR MILESTONE COORDINATES 



.EQ 

11 



0) . AND . ( IGUN .NE. 1))30T0 377 



IF ((IMP 
REWIND 
IGUN= 1 

WRITE ( 11,625) BLANK, BLANK, EL ANK , BL ANK, BLANK 
DO 37 5 1=1 , MNUM 
LTR = 0 

IF (I .EQ. MER) LTR =66 
IF (i .EQ. MNUM) LT R=LAST 
WRITE (11,625) X (I) ,Y (I) ,Z (I) ,VEL(I 
WRITE 
WRITE 
» BLANK 

IF (IGUN . EQ. 

DO 376 1 = 1,6 

376 WRITE (11 ,625) XGON (I) , YGUN (I) 

WRITE ( 1 1 ,6 25) XSAM,YSAM,ZSAM 



375 



11,626 
11 ,6 27 



) f LTR 

VEL ( 1 ) , MBR, BLANK, BLANK, IGUN, IGUN, BLANK, BLANK, IGUN, 



.0) GOTO 377 



ZGUN(I) 



CONVERT ANGLES FROM RADIANS TO DEGREES 



STOP 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCv, 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C VALSET Z 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE VALSET (ISRR) 



CCCCCCCCCCCCCCCCCCCCC 

: ccccccccccccccccccccc 



COMMON/P AR/X (2 00) .Y (200) ,Z (2 00) ,HDG ( 
COMMON/ P AR 1/XDOT (20 0 ) ,YD6t(200) ,ZDOT 
COMMON/PAR 2/T (200) 

COMMON/P AR3/TMD t ACLIFT,CLM AX,WL,TMAX 



200) , CA (20 0) , R A (200) , VEL (200) 
(200) , MNUM, MBR 



DIMENSION 
GEE=9. 82 



AX D (200) , A YD (200) ,AZD(2 00) 



,CD0 ,CDK, VMAX1.VMAX2 
, XDD (200) , YDD (200) ,ZDD (200) 



T 3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 



377 


DO 380 


1=1, MNUM 


T3 




CAM 


:) =ca ( 


I) *DGFAC 


T3 




RAJ] 


:i =ra] 


I) *DGFAC 


T3 


3 80 


HDG i 


( I ) = HD 


G (I) *>DGFAC 


T3 




CALL PI 


SESET 




T3 


500 


FORMAT 


(217) 




T3 


501 


FORMAT i 


3F10. 


2 ) 


T3 


6 25 


FORMAT i 


f 4 F 10. 


0.13) 


T3 


626 


FORMAT i 


i 99999 . t% 


T3 


6 27 


FORMAT i 


(F 10.0 


,12,811 , FI 0 . 0 ) 


T3 



T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 



0 1 
01 
0 1 
0 1 
0 1 
0 1 
0 1 
0 1 
0 1 
0 1 
0 1 
0 1 
0 1 
0 1 
0 1 
0 1 
01 
0 1 
0 1 
0 1 
0 1 
0 1 
0 1 
0 1 
01 
0 1 
0 1 
0 1 
0 1 
0 1 
0 1 
0 1 
0 1 
01 
0 1 
0 1 
0 1 
01 
0 1 
0 1 
0 1! 
0 It 
0 If 
0 It 
0 1 
0 1 
0 1 
0 1 
01 * 



0 u 

02 * 
0 2 ; 
0 4,1 






1 . 1 : 



o : 

o 2f,| 

0 2 *!! 

or* „ 

0 21 'r 

m 

Sill 

0 
0 

0 ; 

0 

o 
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FILE: T3 



FORTRAN 



NAVAL POSTGRADUATE SCHOOL 



(MNUM) - 
MNUM) - 
MNUM - 
DX .HE. 

:srr=i2 

RETURN 
VAVGL= V AVG 
DISTL=D I ST 




X (MNUM- 1 ) 
Y (MNUM-1 
Z (MNUM-1 j 
0.) .OR. 



(DY .HE. 0.)) GOTO 5 



LIMIT THE SPEED 



DIST=SQRT 
IF (( VEL 
IF (( VEL 
VAVG= (VEL 



DT=DIST/VAVG 
T (MNUM) =T (MNUM-1) +DT 



DX*«2 + DY*<*2 + DZ#* 2) 
MNUM) .GT. VMAX1) . AND. 
MNUM) .GT. VMAX2 .AND. 
MNUM) + VEL (MNUM- 1) ) /2 . 



(MBR 
( M3R 



EQ. 

GE. 






VEL (MNUM) =V M AX 1 
VEL (MNUM) =VM AX2 



COMPUTE AVERAGE VELOCITY COMPONENTS 



AXD 

AYD 

AZD 

IF 



MNUM 

MNUM 

MNUM 

MNUM 



= VAVG*DX/DIST 
=VAVG*DY/DIST 
=VAVG*DZ/DIST 
.GE. 3) GOTO 20 



COMPUTE THE PARAMETERS FOR THE INITIAL LEG OF THE FLIGHT PATH 



CA (1 
IF ( 



) =ATAN2 (DZ,SQRT (DX ft *2 + DY**2)) 

(EX .EQ. 0.) .OR. (DY . EQ. 0. ) ) GOTO 10 
HDG( 1) =AT AN2 (DY, DX) 



10 



1 1 



20 




1 1 

EQ. 

EQ. 

EQ. 

EQ.. 



0.1 

0. 

0. 

0 .' 



.AND. 

.AND. 

.AND. 

.AND. 



GOTO 
EX . 

EX , 

EY . 

DY . 

= 0 . 

1) =V EL (1 ) *DX/DIS T 
T =VSL (ij *DY/DIST 
1 i =V EL (l j^DZ/DIST 
URN 

(MNUM) -T ( MNU M-2) ) /2. 



DY 

DY 

DX 

DX 



.GT. 

.LT. 

.LT. 

.GT. 



0 

0 

0 

0 



HDG 

HDG 

HDG 

HDG 



= 1 . 
= -1 
= 3. 
= 0 . 



57079 

.57079 

14159 



COMPUTE THE ACCELERATION COMPONENTS 



XDD (MNUM-1 

ydd(mnum-i 

zdd(mnum-i 



(AXD (MNUM) -AXD (MNUM-1 
(A YD (MNUM) -AYD (MNU" ' 
(AZD (MNUM) -AZD (MNU 



t\\\ 



/DELT 

/DELT 

/DELT 



WEIGHT AVERAGE OF THE VELOCITY COMPONENTS 



HDAVG=DISTL/ (DIST+DISTL) 

TDX= (AXD (MNUM) /V AVG- AXD ( MNUM-1 
TDY= (A Y D MNUM) /V AVG- AYD ( MNUM-1 
TDZ= (AZD (MNUM A AVG- AZD (MNUM-1 



/V AVGL)*HDAVG + AXD 
/VAVGL) SHDAVG + AYD 
/V AVGL) *HDAVG+AZD 



MNUM-1) /VAVGL 



1 - 1 ) 

MNUM-1) /VAVGL 
MNUM-1) /VAVGL 



MAKE THE 
VELOCITY 



WEIGHTED VALUES A 
COMPONENTS 



UNIT VECTOR AND COMPUTE THE MILESTONE 



25 



30 



UNIT=SQRT (TD X^TDX +TDY*TDY + TDZ*TDZ) 

IF (ABS (UNIT) .GE. 0.01) GO TO 25 
IERR= 12 
RETURN 

TDX=TDX/UNIT 
TD Y=TDY/UNIT 
TDZ=TDZ/UNIT 

XDOT (MNUM-1) =VEL (MNUM-1) *TDX 
ydot(mnum-i) =VEL (MNUM-1) $TDY 
ZDOT (MNUM-1) =VELlMNUM-Ti *TDZ 

IF (SQRT (TDX*TDX+ tDY^TDy) .GE. 0.01) GO TO 30 
CA (MNUM-1 ) - 1. 5533 
GOTO 33 

CA (MNUM- 1) =ATAN2 (TDZ ,SQRT (TDX* TDX+TD Y^TDY) ) 



T3 
T3 
T3 
T 3 
T3 
T3 
T 3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T 3 
T 3 
T 3 
T3 
T 3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T 3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 



o: 

o: 

oi 

0 1 
01 
01 
01 
01 
01 

02 
01 
02 
02 
02 
02 
02 
o; 



2r 1 



2: 1 1 



Z 

02 
02 
02 
0 2 
02 
02 
0 2 
0 2 
0 2; 
0 2 : 
02 : 
02 
02 
02 
02 
02 
02 
02 
02 
0 2 
02 
02 
0 2 ! 
0 2 * 
0 2 ? 
02 * 
0 2t 
0 2 “ 
0 2 1 



i! 



I 



0 2* fj: 
2 



0., 
0 2 
0 2 
0 2 * 
0 2 * 
0 2 
0 2 * 
0 2 * 
0 2 



l 



0 2 ? 

0 2h 
0 2 ; 

0 2) 

0 2 * 

o 2i ; 



!>;l 



o* 

0 2f 
0 2 ' 
0 21 
0 2fi 
0 2f 
02 ' 
0 Z? 
0 2 \> 
0 2 ' 



1.(1 
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T3 




FORTRAN 


A NAVAL POSTGRADUATE SCHOOL 


33 


IF 


( (TDX .EQ. 


0.) 


.OR. 


(TDY -EQ. 0.) ) 


GOTO 


40 








HDG (MNUM 


-1) 


=AT AN2 ' 


TDY, TDX) 












GOTO 45 














40 


IF 


( | 


[TDX .EQ. 


0.) 


.AND. 




[TDY . GT. 0. ) 


) HDG 


(MNUM-1 




IF 


} | 


TDX .EQ. 


0. 


.AMD. 




TDY . LT. 0. 


i HDG 


(MNUM-1 




IF 


) | 


TDY .EQ. 


0. 


. AND. 




’TDX . LT. 0. 'i 


) HDG 


(MNUM-1 




IF 


( 1 


TDY .EQ. 


0. 


.AND. 




'TDX . GT. 0. ; 


i HDG 


(MNUM-1 



=1. 57079 
=-1.57079 
= 3. 14159 
= 0 . 



C 

C 

C 



COMPONENTS OF ACCELERATION IN THE AIRCRAFT COORDINATE SYSTEM 



45 



CASIN= SIN (CA (MNUM-1) 

> CA j 



C 

C 

c 



C AC09=C0 C i 

HDSIN=S I N (HDG (MNUM-1 
HDCOS=CO S (HD G ( MNUM- 1 [ t 
A1 1=XDD ( MNUM- i ) * HDCOS&CACOS 
A21=-XDD (MNUM- 1)*HDSIN 
A 3 1=-XDD (MNUM- 1) ^HDCOS^CASI N 
A12=YDD (MNUM-1 ) &HDSIN3CA COS 
A 2 2= YD D ( MNUM - 1 ) * HDCOS 
A32=-YDD (MNU M - 1) HDSIN^CASIN 
A 1 3= (ZDD (MNUM- 1) +GEE)*CASIN 
A23=0. 

A33= (ZDD (MNU M- 1) + GEE) * CACOS 



COMPUTE ACCELERATION PARALLEL AND PERPENDICULAR TO FLIGHT PATH 



50 

55 



TMD= (A 1 1 + A12 + A 13) /GEE 

ACLIFT= (SORT ( (A21+A22) 2+ (A31 + A3 2+A 33) »*2) ) /SEE 

IF (ABS (A31+A32+A33) -GE. 0.01) GO TO 50 
RA (MNUM-1 ) = 1. 57079 
GO TO 55 

RA (MNUM- 1) =ATAN2 ( (A21 + A2 2) , (A3 1+A32+ A3 3) ) 

CALL ERRMK (2 1) 

RETURN 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C SUBROUTINE ERRMK C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE ERRMK (IERR) 

COMMON /ERR/M KERX (3) , MKERY (20) 

COHMON/MN/IB AUU. MINY , MAXY, MIN) 

IF (IERR .GT. 20) GOTO 85 
J=2 

IF (IERR . LE.6) J=1 
IF (IERR .GT.12) 

MKX=MKERX ( J) +200 



IX , MAXX 



J=3 



C 

C 

C 



C 

c 

c 



DETERMINE NUMBER 
K=5+3 0*IBAUD 



OF TIMES TO FLASH THE LINE 



UNDERLINE THE PROMPT 



DO 80 1=1, K 
CALL MOV A3 S 



80 

85 



DRW ABS 
DRW ABS . 
.LE. 10) 



MKERX ( J) , MKERY (IERR) 
MKX, MKERY (IERR) ) 
MKERX{ J^gMKERY (IERR) 



) 



CALI 



) 



CALL 
CALL 
IF { I 
RETURN 
MKX=950 

MKY=10 ft (IERR - 1 5) 

DO 86 1=1,3 

CALL MOVABS (MKX,MKY) 

CALL CRWABS (MKX+30,MKY) 

RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C SUBROUTINE PTHPLT C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCC 



86 



T3 
T3 
T3 
T3 
T3 
T3 
T3 
T 3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T 3 
T3 
T 3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T 3 
T3 
T 3 
T3 
T3 
T 3 
T3 
T 3 
T3 
T 3 
T3 
T3 
T3 
T 3 
T 3 
T3 
T3 
T 3 
T3 
T 3 
T3 
T3 
T3 
T3 
T3 
T 3 
T3 
T3 
T3 
T 3 
T3 



II 



02 
02 
02 
02 
02 
0 2 
02 
02 
02 
02 
02 
0 3 
03 
0 3 
03 
03 
03 
03 
0 3 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
0 3 
03 
03 
03 
0 3 
03 

o 3: 

0 3 H 1 

0 3 :: 
0 3 :i 
0 3 |! 
0 3 ii 

0 3 !f, 

0 3 ;,ii 

0 3j : 

o i | , 
S| St 

ot {{ 

0 3 { 

0? it 
X -< J . 1 
0 j, : 

03 H 

0 3 if: 
0 3, 

0 • 

0 3 ■ 

n*. 

o h I/ 

0 3 " 
0 3 7" 

of; 

o| r 
osi; 

o t 

0 3 

0 'i: - ! 

0 
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ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE PTHPLT 

COMMON /PAR/X (200) ,Y (200) ,Z (2 00) , HDG ( 

COMMON /PAR 1/XDOT (200) , YDOT (200) ,ZDOT 
COMMON/MN/IB AU D , MIN Y , M AXY , MI NX , MAXX 



200) ,CA (20 0) , RA (200) , VEL(200) 
(200) ,MNUM,MBR 



C 

C 

C 



IDENTIFY THE MAP- DRAW AND LABEL THE FLIGHT LEG 



C 

C 

C 



CALL 
CALL 
CALL 
CALL 
IF 
IF 
IF 



WIN (MINX, MAXX, 1 8000 1 200 0- , 0) 

MOVEA (X (MNUM-1) ,Y (MNUM-1) ) 
DRANAjX (MNUM) , Y (MNUM) ) 

ANMCDE 

MNUM -GT. 99) WRITE (6,900) MNUM 
(MNUM .GT.9[ .AND. j[MNUM. LT- 100^) 



MNUM .LE. 9) WRITE (6,902) 
SAVE THE POINT IN 'TEMP DATA’ 



WRITE (6 , 901) MNUM 



6 25 
9 00 
901 
9 02 



WRITE (19 -6251X (MNUM) ,Y (MNUM) ,Z (MNUM) ,VEL (MNUM) , M BR 
FORMAT ( 4 F 10. 0,13) 

’ ♦* rI3j 
' ♦' ,12 
' + M1 



FORMAT 
FORMAT 
FORMAT 
RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C GUNLOC 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
cccccccccccccccccccccccccccccccccccccccccc 
SUBROUTINE G UNLOC (G X ,GY, RAD) 
COMMON/MN/IB ADD , MIN Y , M AX Y , MI NX ,MAXX, 



CCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCC 

c 

CCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCC 



c 

c 

c 



c 

c 

c 



c 

c 

c 



MINI , MAXI 

IDENTIFY THE MAP AND PLACE A ' AT TH E LOCATION 

CALL WIN (MINX, MAXX, 18000. , 1200 0. ,0) 

CALL MOVEA (GX-75. , GY) 

CALL DRAWA(GX+75.,GY’ 

CALL MOVEA (GX,GY+75. i 
CALL DRAWA(GX, GY-75. ) 

DETERMINE NUMBER OF STEPS TO BE USED 



ISTEP=3 
IF (RAD, 



IT. 1600.) I STEP =6 



DRAW A CIRCLE AROUND THE SITE 

DO 10 1=3, 180.IS1EP 
ANGLE =X ft 0 .034907 



ANGLE) *GX 
ANGLE) +GY 
DX+10. , DY) 
DX- 10 . ,DY) 



DX=R AESCO S 
DY= R A E* SI N 
CALL MOVEA 
10 CALL ERAWA 

RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C SPOT 

C THIS RETURNS AN X -Y PAIR AND TWO 

C THE ROUTINE CREATES A DOT AT POIN 

C OPERATOR VERIFICATION (ASCII M N"=7 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE S POT ( X , Y , LI , L2) 

C 

C READ THE CURSOR 
C 

100 CALL VCURSR (LI ,X , Y) 

C 

C MARK THE SPOT 
C 

CALL POI NTA ( X, Y) 



CCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCC 

c 

COMMAND VALUES L1SL2 C 
T X, Y AND ASKS FOR C 
8) C 

CCCCCCCCCCCCCCCCCCCCCCC 



T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T 3 
T3 
T3 
T3 
T 3 
T3 
T3 
T3 
T 3 
T 3 
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C 

C 

c 

c 

c 

c 



VERIFY THE POINT 

CALL VCURSR ( L2 , A, E) 

DOES THE USER ACCEPT THE SPOT? 



[^N 



L2 -EQ. 78) .OR. (L2 . EQ. 110)) GOTO 100 



IF 
RET 
END 

cccccccccccccccccccccccccccccccccccc cccccc 
ccccccccccccccccccccccccccccccccccccccccc 

C SCENE 

C THIS ROUTINE DRAWS THE ATTACK HAP 

cccccccccccccccccccccccccccccccccccc cccccc ccccccccccccccccccccccc 

SUEROUTINE S CENE ( IRQ , ICT) 

COMMON/EBR/MKERX (3) , MKERY (20 L 



: CCCCCCCCCCCCCCCCCCCCCCC 

ccccccccccccccccccccccc 

c 



c 

c 

c 

c 

c 

c 

c 

c 

c 



COMMON /PAR/X (200) , Y ( 200) , Z (2 00) , HDG ( 200) ,CA(20 0) -BA (200) , V 
C0MM0N/MN/I3 AUD,MINY, MAX Y, MINX ,MAXX, MINI , MAXI, MAP 
COMMON /T An/T ARGX , TARGY 



EL (200) 



DRAW THE X,Y MAP 
THE ROUTINE READS X.Y PAIRS FROM FIL 
END OF FILE, -0.5,0 INDICATES A MOVE, 
SITIVE AND RESULT IN A DRAW TO THAT 

ERASE THE SCREEN 
CALL N EW PAG 



E 09. A -2.0,0 INDICATES 
ALL OTHER VALUES ARE PO- 
POINT . 



C 

C 

C 



READ USER OPTIONS 

WRITE (6. 635) 

READ (5,*) MAP 
IF (IRQ .EQ. 0) GOTO 195 
WRITE (6, 630) 

READ (5,*) ICT 

CLEAR THE SCREEN 

CALL NEWFAG 
195 CALL WIN (MINX. MAXX, 18000. , 12000., 1) 
IF (MAP .EQ. 0) GOTO 210 
REWIND 9 

READ (9,501) TX,TY 

200 READ (9. 501 TX.TY 
CALL MCVEA (TX, T Y) 

201 READ (9,501) TX.TY 

IF (TX.LT.-1) GOTO 210 
IF (TX.LT. 0) GOTO 200 
CALL DRAWA (TX, TY) 

GOTO 201 



C 

C 

c 



210 



C 

C 

C 



MARK THE TARGET 

CALL G UNIOC (TARGX ,T ARGY, 150.) 
CALL GUNLOC (TARGX, TARGY, 300.) 



DRAW TIC MARKS EVERY 2000 MTRS 



DO 



1 * 2000 . 

1 * 2000 . 



215 



215 1*1,8 
IW= 2* I 
CALL KOVEA 
CALL DRAWA 
CALL ANMOD 
WRITE (6,502) 

IF (I “ ' 

CALL 
CALL 
CALL 
CALL 

WRITE (6 ,502) 
CONTINUE 
CALL MOV EA (8 00 0. ,0.) 



, 1000 .) 

# 0 . ) 



IW 

GE. 6) GOTO 215 
MO VE A ( 1000. ,1*2000, 
DRAWA(0.,2000.*I) 
MOVREL (-30,0) 

AN MODE 

IW 



T 3 
T3 
T3 
T3 
T 3 
T 3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T 3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T 3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
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2 20 

225 



1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 



CALL MO VEEL ( 0 , -20) 

CALL ANMCDE 
WRITE (6.503) 

CALL MO V FA (8 000. .0.) 

CALL MO VPEL (0,-40) 

CALL ANMCDE 
WRITE (6 , 504) 

DRAW THE ALTIMETER 

CALL WIN (MIN 1 , MAX 1,350. , 2200 ., 1) 

DO 220 1=2,2 0*2 

CALL MOVE A (0. . I* 100.) 

CALL ERAWAj350. ,1*100.) 

CALL ANMGDE 
WRITE (6,502) I 
DO 225 1=1*6 

CALL M0V2A (1^50. , 100. ) 

CALL DRAWA (1*50. ,0. ) 

MARK RESET POINT VELOCITY AND ALTITUDE AS OPERATOR AID 

IF (IRQ.NE.O .AND. ICT . GT. 1 ) C ALL PO INTA (VEL (I CT) , Z (ICT) ) 
CALL MOVEA (0. , 0.) 

CALL MO VEEL (0,-15) 

CALL ANMCDE 
WRITE ( 6 , 505) 



T3 0! 
T3 Oi 



CALL MO^EA (0. ,0. ) 
CALL MO V REL ( 0 , -30 



) 



1 = 1 



% 1=3 
(MKERX (I) 



MKERY (IT) ) 



CALL ANMCDE 
WRITEj 6, 506) 

DO 499 IT=1 , 20 
1=2 

IF (IT .LE. 

IF (IT .GE. 

CALL MOVABS 
CALL ANMODE 
GOTO (1 ,2,3 ,4, 5, 6, 7, 8, 9, 10, 11 
WRIT E ( 6 , 60 1) 

GOTO 499 
WRITE (6.602) 

GOTO 499 
WRITE (6,603) 

GOTO 499 
WRITE (6,604) 

GOTO 4 99 
WRITE (6,605) 

GOTO 499 
WRITE (6,606) 

GOTO 499 
WRITE (6,607) 

GOTO 499 
WRITS (6,608) 

GOTO 499 
WRITE (6,609) 

GOTO 499 
WRITE (6,61 0) 

GOTO 499 
WRITE (6,61 1) 

GOTO 499 
WRITE (6,61 2) 

GOTO 499 
WRITE (6,61 3) 

GOTO 499 
WRITE (6,61 4) 

GOTO 499 
WRITE (6,61 5) 

GOTO 499 
WRITE (6,61 6) 

GOTO 499 
WRITE (6,61 7) 

GOTO 499 



12,13,14,15,16, 17,18,19,20) ,IT 



T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T 3 
T3 
T 3 
T3 
T 3 
T3 
T3 
T3 
T3 
T 3 
T3 
T 3 0 
T3 0 
T 3 0 
T3 
T 3 
T3 
T 3 
T 3 
T 3 
T3 
T 3 
T3 
T3 
T3 
T3 
T3 
T3 
T 3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T 3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 



0 ? 

0 ! 

0 C 

Of 

0 ‘ 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 
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FILE 



T3 
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18 

19 

20 

4 99 

501 

5 02 

503 

504 
5 05 
506 

5 07 
601 

6 02 
6 03 

604 

605 
6 06 

607 

608 

609 

610 
6 11 
612 

613 

614 

615 

616 

617 

618 

619 

620 
63 0 

6 35 



WRITE (6,61 8) 
GOTO 499 
WRITE (6.61 9) 
GOTO 499 
WRITE (6,62 0) 
CONTINUE 
RETURN 



FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 



2E10. 2 

♦ * 12 

t 5' I AXIS MARKS IN 1000"S 
0 DEG. HEADING ALONG X AXI 
ALT. IN 100"S') 

VEL IN 50" S') 

• 1 2 ) 

Mix ACCEL EXCEEDED' ) 

MAX G EXCEEDED') 

APPRCH TOO LOW') 

ALT TOO HIGH') 

STA LL ') 

POP-UP TOO LOW') 

BMB DROP LOW') 

3MB DROP HI') 

TOO FAR FM TGT') 

HDG >5 DEG TO TGT') 

FINAL RUN<2 . 3 3 SEC') 

NO HORIZONTAL MOTION' 

TOO CLOSE TO TGT') 

ENTER MISSILE LOCATION') 
ENTER MILESTONES') 

ENTER GUN COORDINATES 
MAX LIFT EXCEEDED') 

MAX THRUST EXCEEDED') 

X COORDINATE < 6000') 

DO YOU WANT TO FIX T 
AT WHICH POINT 
VILLAGE: 0 = NOT 



si, 



) 



') 



E ERRO 
DO YOU WANT 
DRAWN; 1= VI 



END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCC 
C SUBROUTINE WIN 

C THIS ROUTINE DEFINES A WINDOW EXTENDI 

C THE HORIZONTAL AXIS. AND FROM MINY TO 

C AXIS. THE HORIZONTAL RANGE IS RX, THE 

CCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE WIN (LX ,MX ,R X, RY , J MP) 
COMMON/M N/IB AUD , MINY, MAX Y 



R: 0=NO , USE THE POINT; 1 = 
TO RESTART') 

LLAGE DRAWN') 

ccccccccccccccccccccccc 

ccccccccccccccccccccccc 

c 

NG FROM LX TO MX ON C 
MAXY ON THE VERTICAL C 
VERTICAL RANGE IS RY C 
CCCCCCCCCCCCCCCCCCCCCCC 



c 

c 

c 



c 

c 

c 



DEFINE THE WINDOW 



CALL 

CALL 



TWINDO 

DWINDO( 



(L X. MX. MINY, MAXY) 
0. ,RX,<5. ,RY) 



FLASH THE DEFINED WINDOW 



GOTO 1 1 



(LX, MINY 
LX, MAXY 
MX, MAXY 
MX, MINY 
[ LX , MI NY 



IF (JMP .EQ. 0) 

ICT=4 + efcIBAUD 
DO 10 1=1, ICT 
CALI MOVABS 
CALI DRWABS 
CALL DRWABS 
CALL DRWABS 

10 CALL DRWABS 

1 1 RETURN 
END 

CC CCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCC CC CCCCCC 
CCCCCCCCCCCCCCCCCCCCCC CCCCCC CCCCCCCC CCCCCC 
C SUBROUTINE XYZIN 

CCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC CCCCCC 
CCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC CCCCCC 
SUBROUTINE XYZIN 

COMMON /LOC/ X 1 , Y 1 , Z 1 , V 1 , LTR , LT R2 

COMMON/M N/IB AUD , MIN Y , M AXY , MI NX , MAXX , MINI ,MAX1 



CCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCC 

c 

ccccccccccccccccccccccc 

ccccccccccccccccccccccc 



YES' 
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C 

C 

c 



c 

c 

c 



c 

c 

c 



CALL BELL 

IDENTIFY MAP AND GET X r Y AND THE FIRST COMMAND 



CALL WIN (MINX, MAXX, 18000. 
CALL SPOT (XI ,Y1 ,LTR,LDM) 
CALL BELL 



1200 0 ., 1 ) 



IDENTIFY ALTIMETER AND GET VEL , ALT AND THE SECOND COMMAND 

CALL WIN (MINI, MAXI, 350. .2200., 1) 

CALL SPOT (VI ,Z1, LTR 2 , LDM) 

CONVERT LOWER CASE TO UPPER CASE 



. GT. 
.GT 



9 6) 
96) 



LTR=LTR-32 

LTR2=LTR2-32 



IF (LTR 
IF (LTR 2 
RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

cccccccccccccccccccccccccccccccccccccccccc 

C SUBROUTINE BEGIN 

cccccccccccccccccccccccccccccccccccccccccc 
cccccccccccccccccccccccccccccccccccc cccccc 

SUBROUTINE BEGIN 

COMMON/M N/I3 AUD, MIN Y, MAX Y, MINX, MAXX, 
COMMON /OPT/I GU N, IPNC H, IEXT , I SA M, I MP, 



CCCCCCCCCCCCCCCCCCCCCCC 

ccccccccccccccccccccccc 

c 

ccccccccccccccccccccccc 

ccccccccccccccccccccccc 



MINI , MAXI , MAP 
KER 



C 

C 

c 



c 

c 

c 



INITIALIZE THE GRAPHICS AND CLEAR SCREEN 



CALL 

CALL 



IN IT 
NEWPAG 



READ USER OPTIONS 



50 



(6 ,600) 

(5,n 



6 00 
625 
630 
635 
640 



C 

C 

C 



WRITE 

READ (5,*) IGUN 
WRITE (6 ,630) 

READ (5 ,=4) IMP 
WRITE (6, 635) 

READ (5,*) KER 
WRITE (6,625) 

READ (5 ,*) IBAUD 
WRITEj6 ,640) 

READ (5,*)KON 

.NE. 0) CALL CONCHG 
GUN S: D=DIS K FILE; 1 = TERMINAL 
BAUD RATE; 0=300 BAUD; 1=12 
MILESTONE INPUT; 0=DISK FIL 
ERROR CHECKING: 0 = NO CHECKI 

FLIGHT S GAME PARAMETERS: 0 



IF (KON 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 



: 2=PRESET •) 

00 BAUD') 

E; 1=TERMINAL') 
NG; 1=CHECK FOR 
= DEF AULT ; 1 = USER 



ERRORS') 
INPUT' ) 



COMPUTE THE SCREEN WINDOW COORDINATES 

MAXX=KIN (5.75) 

MINX=KIN (0.25 
MAX1 = M A XX+ 18 5 
MIN1=MAXX+10 
MAXY=KIN (0.375) 

MINY=KIN (4.042) 

MAXY=777-MAXY 

MINY=777-MINY 

RETURN 

END 

cccc cccccccccccccc cccccccccccccccccc cccccc 
cccccccccccccccccccccccccccccc cccccc cccccc 

C SUBROUTINE GUNCHK 

CCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCC cccccc 
cccccccccccccccccc cccccccccccccccccc cccccc 

SUBROUTINE GUNCHK (X. Y, ISRR) 

COMMON /TAR/TARGX,TA&GY 
C 



CCCCCCCCCCCCCCCCCCCCCCC 

ccccccccccccccccccccccc 

c 

ccccccccccccccccccccccc 

ccccccccccccccccccccccc 
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COMPUTE DISTANCE TO TARGET 



DIST=SQRT ( (X-TARGX) 6*2 + ( Y-TA RGY) $$ 2) 

IF (DIST .LT. 3000.) IERR=13 

RETURN 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C BLOCK DATA C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC CCCCCC CCCCCCCCCCCCCCCCCCCCCCC 
BLOCK DATA 

COMMON/E RR/M KERX ( 3),MKERY(20) 

COMMON/PAR/X (2 00) .Y (200) r Z (200) r HDG (200) ,CA (20 0) r RA (200) , VEL (200) 



C 0 MMON / P A R'l / XD OT 'i 20 0 )_, Yt» OT ( 2 0 0 ) /, . Z DO £ j 2 o!) ^ , MN U H , M B R 



COMMON/P AR2/T (200) , XGUN (7) ,YGUN(7) ,ZGUN(7) , XSAM, YSAM, ZSA 
COMMON/P AR3/TM D, ACLIFT ,CLMaX, WL,TMAX ,CD0 ,CDK , V MA X 1 , VMAX2 



ZSAM , GR ( 7) 



C 

C 

C 



COMMON/P AR4/AP PM AX JHTMfN, HTMAX,SPDMI N, GM AX ,POP HI N 
COMMON/TAR/TARGX ,TARGY 



ERROR MESSAGE COORDINATES 



C 

C 

C 



DATA MKERX/6 40,340, 19/ 

DATA MKERY/1 60 , 140 . 1 20 , 1 00, 8 0, 60, 160 , 1 40 , 1 20, 1 00 , 8 0 , 6 0 , 16 0 , 14 0 , 
* 120,100,80,60, 180,40/ 



PREDETERMINED WEAPON EMPLACEMENT PARAMETERS 



C 

c 

c 



DATA XGUN/14 300. . 162 00 . , 1 36 0 0. , 1 3 400 . , 1 1 300. , 1 56 00 . , 12800. / 
DATA YGUN/9000.. 8200. ,7200. . 8000. ,9700. , 1 0900. ,7500./ 

DATA Z GUN/40 . .40. ,20., 20. .50., 90. ,20 ./ 

DATA XSAM/12060./,YS AM/6 000. /, ZSAM/5 0./ 

DATA GR/1000 . , 10 00. , 14 00. , 14 00.,2500 . ,25 00. ,25 00. / 



SIMULATION PARAMETERS 



CLMAX/1 ./.WL/100. /, SPDMIN/90./, GMAX/6 ./,HTMIN/60. / 

HT M AX/2 O50./,APPMAX/457./,TMAX/O.4/, CDO/O . 0 1 5/ ,CDK/0 . 1/ 
VMAX1/260./, VMAX2/3 10 . / .POPMIN/6000 . / 

TARGX/1 4000. /, TARGY/7220 . / 



DATA 
DATA 
DATA 
DATA 
END 

CCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC CCCCCC CCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCC CCCCCC CCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC 
C PRESET C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCC CCCCCC CCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCC CCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE PRESET 

COMMON/PAR/X (200) .Y (200) ,Z (200) ,HD3 (200) ,CA{290) , RA (200) ,VEL 
COMMON /PAR 1/XDOT(20 0) ,YDOT(200) ,ZDOT (2 00) , MNUM , MBR 

■- _ GlJN - 

KER 



COMMON /P AR 1/XDOT (20 0) , YDOT (200) ,ZDOT 
COMMON/P AR2/T ( 200 ) , X GUN (7) , YGU N (7 ) ,Z 
COMMON /OPT/IGUN.IPNCH.IEXT. ISAM, IMP, 
DIMENSION XI 0 (200). Y1O(2O0) 



( 200 ) 



r ) ,XSAM, YSAM, ZSAM 



C 

C 

c 



DIMENSION RCSTAB(l600) ,TINK(10) 
DIMENSION VAT 1 N2 (208) , VAT3 (208) 



VAT5 (208) 



VULNERABLE AREA TABLE VS TYPE 1 AND 2 WEAPONS 



T3 
T 3 
T3 
T 3 
T3 
T3 
T3 
T3 
T3 
T 3 
T3 
T3 
T 3 
T3 
T 3 
T3 
T3 
T 3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T 3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 



C 

C 

c 



T3 

DATA VAT 1N2/ 2*. 4 645, 6* 7. 107,2$ .656 8,6*5. 55 1 , 2$ . 6 968 ,6*5. 57 4 , 2* . 656T3 
18,6*7. 3 5 7,2$ .6 96 8,6*5. 574, 2* .6 568 ,6$ 5. 55 1 , 2$ . 5 96 8 ,6*5. 574 , 2*. 6 568, T3 
26*7.357, 2*. 6 96 8, 6*5. 574, 2*. 4 64 5. 6 *.7 43 2, 2*. 6 55 8, 6*2. 858, 2* . 46 45 ,6^T3 
33. 298. 2*. 656 8, 6*2. 8 5 8, 2*. 464 5, 6*. 743 2, 2*. 6568, 6$ 2 . 858 , 2*. 4 645 , 6*3. T3 
4 29 8,2$. 6 568, 6*2. 858 , 2* . 6 56 8 , 6* 5. 5 51 , 2*.6 968,6*5. 574, 2*. 656 8, 6*7. 35 T3 
57, 2*. 6 96 8, 6$ 5. 574, 2*. 6 56 8 , 6*5. 55 1 ,2? . 696 8 ,6$ 5. 574 , 2* . 6568 , 6*7. 357, T3 
62*. 6968, 6*5. 574, 2*. 4645, 6*7. 107/ T3 

T3 

VULNERABLE AREA TABLE VS TYPE 3 WEAPONS T3 

T3 

DATA VAT 3/2$ 12.54,6*13.47,2*9. 853 . 6$ 10. 5 1 , 2* 9. 63 9 , 6* 1 1 . 15 , 2* 1 2 . 64 , T3 
16*14.7 8, 2*9. 63 9,6*1 1. 15,2*9. 85 3, 6^1 0 . 5 1 . 2*9. 63 9, 6* 1 1 . 15 , 2* 1 2. 6 4,6«&T3 
214.78, 2*9.63 9, 6* 1 1 . 1 5, 8* 1 . 39 4, 2*4.75 2. 6* 6 . 24 0, 2* 5. 34 2 , 6*7. 4 32 , 2* 4. T3 
376 2,6*6. 240, 8* 1.394,2*4. 76 2,6*6.2 40, 2^5. 34 2,6*7. 432, 2*4. 76 2 ,6*6 . 24T3 
4 0,2*9. 8 5 3,6* 10.51,2*9. 63 9,6*11 . 15 ,2* 12.64 ,6*14 . 78, 2^9. 639, 6^1 1 . 15, T3 



f 



jj " 

0 

0 .* l 

0 || f 

§ 

n •" 1 
2 >1 ( 
2 .11 •: 



0 



1( 



2 11 
2.:!’j 



0 

0;l;, 

oS}: 

0 ■■ 

0-1 f. 

0 

0 V 
0 
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5 2*9.85 3,6*10. 51, 2**9. 6 3 9, 6$ 1 1 .1 5,2*12 .64,6*14.78, 2*9. 6 39,6* 1 1. 
612.54,6* 13.47/ 



15 , 2*T3 
T3 



VULNERABLE AREA TABLE VS TYPE 5 WEAPONS 



DATA V AT 5/8* 55 .37, 8*43. 22, 8* 47 
18*62.53,8*47. 10,8*5.76 1,8*27.4 
233.07,8*27.4 5, 8*5.76 1,8*47. 1 0, 
3.53,8*47.10,8* 55.37/ 



. 10 . 8 * 

5,3*33 
8*6 2. 5 



62.53,8*47. 10,8*43.22,8*4 
.07,3*27.4 5, 8*5.761,8*27 
3, 8*47. 10, 8*4 3. 22,8*4 7. 1 



T3 

T3 

T3 

T3 



10 



7.10, ^ 

45 ,8^T3 
,8»62T3 



RADAR CROSS SECTION TABLE 



DATA RCSTAB/ 19*10 00. , 19* 100. ,1 9* 10. , 1 9* 1 0. , 1 9* 1 0 . , 1 9* 1 00. , 
+ 19*1000. ,867*0.0/ 



CALL ERRSET SUPPRESSES ANY POSSIB 
RESULT FROM MANIPULATION OF SCENA 



LE UND 
RIO PA 



ERFLOW PROBLEMS THAT MAY 
RAMETERS. 



CALL ERRSET (208,50,-1,1,1) 
JAM=0 



CARD 2 TIME INCREMENT CALCULATION 
TINC = T (MNU M) /I 0 00. + 0.0008 
CARD 6 TIME INCREMENT CALCULATION: 
TINKI = 0 



DO 10 1=1,9 

TINK(I) = TINKI+T (MNUM)/10 
TINKI = TINK (I) 

10 CONTINUE 



/////^ ft * * P UNCH PROGRAM***** ///// 



OPTION TO PUNCH THE P001 CARD DECK OR MICE- II CARD DECK 



IF (IPNCH.EQ.0) 
IF (IPNCH.EQ.2j 



RETURN 
GO TO 155 



COMMENCE PUNCHED OUTPUT OF THE P001 CARD DECK. 



THE JCL CARES. 



WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 



18.79 

18.80 
18,81 
18,82 
1 8,83 
18,84 
18' 85 
18,86 

1 8 , 87) 



LEADING BLANK DATA CARD SIGNIFIES RADAR MASKING ANGLE OF ZERO. 



THE OUTPUT TITLE CARD. 

WRITE (18,90) 

CARD 2 



WRITE (18,88) 

(18,91 j T(MNUM),TINC 



WRITE 

THE 2A CARDS (MILESTONES) . 



T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T 3 
T3 
T3 
T3 
T 3 
T3 
T 3 
T3 
T 3 
T3 
T3 
T3 
T3 
T 3 
T3 
T 3 
T3 
T 3 
T3 
T3 
T 3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T 3 
T3 
T3 
T3 
T 3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 



0 

0 

O' 

0 

0 

0 

O' 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 



o i; 1 , 

0 



0 ' (' 
0 ;[ i 



0 1 

O' fi 
0 1 K 

o; id 

g!- 

O' It,; 

0 !;. 

o' : 

oh;. 

C| il 
0 ) 



Chi‘ : 

Cl lb 



C 

Cj l : U 

C-l ■ 



C! 



r - 1 
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000 DO 17 I=1,MNUM 

WRITE (18,92) T(I) ,X (I) , Y (I) ,Z (I) ,XD0T (I) , YDOT (I) ,ZD0T (I) , HDG (I) 

n 1\ IT\ O » /T\ 



1,CA(I) , R A ( I) 
ITINUE 



17 CON 



WRITE (18,94) 

CARD 3 (GUN EMPLACEMENT CARD). 

WRITE (18,95) XGUN(1) , YGUN (1) , ZGUN (1 ) 
CARD 4 (GUN TYPE) . 



WRITE 

WRITE 



(18,93) 

(18,96) 



CARD 5 



WRITE 

WRITE 



( 18 , 89 ) 



;ie,97) 



CARD 6 



WRITE 

WRITE 



( 1 8 39 8) 

18^98) (TINK (I) ,1 = 1,9) 



CARD 7 (VULNERABLE AREA TABLE VS TYPE 1 AND 2 WEAPONS) 



WRITE 

WRITE 

WRITE 



18,399) 

18.99) 

18.100) 



(VAT1N2 (I) ,1=1, 208) 



CARD 12 (EXECUTE RUN). 
EXTENDED OUTPUT OPTION 



WRITE (18,3101) 

IF (IEXT-NE. 1) WRITE (18,102) 
IF (IEXT.EQ. 1) WRITE (18,101 



THE REMAINDER OF THE CARDS INTRODUCE NEW GUN LOCATIONS. GUN 
AND VULNERABLE AREA TABLES TO BE EXECUTED BY THE PROGRAM. 



TYPES 



WRITE 

WRITE 



(18,94) 



118,95) XGUN(2) , YGUN (2) , ZGUN(2) 
EXTENDED OUTPUT OPTION 



WRITE (18.3101) 

IF (IEXT.NE. 1) WRITE 
IF JIEXT.EQ. 1) WRITE 



WRITE 

WRITE 

WRITE 

WRITE 




(18,102) 



18,101) 

XGUN (3) , YGUN (3) , ZGUN (3 ) 



T3 
T3 
T3 
T3 
T3 C 
T3 C 
T3 C 
T3 C 
T3 C 
T3 C 
T3 C 
T3 0 
T3 C 
T3 0 
T3 0 
T3 0 
T3 



T3 0 ! 
T3 0 



0 

0 



T3 0 I 
T3 0 i 
T3 0 i 
T3 0 1 
T3 0 ! 
T3 0 
T3 
T3 

T3 0 
T3 0 
T3 0 
T3 0 
T3 0 
T3 0 
T3 0 
T3 0 
T3 0 
T3 0 
T3 
T3 
T3 
T3 

T3 0 
T3 0 
T3 0 
T3 0 
T3 0 
T3 0 
T3 0 
?3 0 
T3 0 : [!: 
T3 0 , | 
T3 0 ' 1 



0 

0 

0 

0 



If 



T3 0 



1 f 



t 3 o : :i 
T3 0 ; " 
T 3 0 : 
T3 0 
T3 0 |s 
T 3 0 ; 
T3 O' f 
T3 0 y 



EXTENDED OUTPUT OPTION 




T3 


0 






T 3 


0 


WRITE (18.3101) 

IF (IEXT.NE. 1) WRITE 




T3 


0 


(18 ,102) 


T3 


0 


IF jlEXT.EQ. 1) WRITE 


(18,101) 


T3 


0 


WRITE (18,94) 




T3 


0 


WRITE (18,95) XGUN (4) 


, YGUN (4) , ZGUN (4 ) 


T 3 


0 


T3 


0 


EXTENDED OUTPUT OPTION 




T 3 


0 






T 3 


0 


WRITE (18,3101) 




T3 


0 



I LI 

.1 

.! 



139 



nnn non nnoo nnnn nnn 



FILE: T3 



FORTRAN A 



NAVAL POSTGRADUATE SCHOOL 



IF (IEXT.NE. 1) WRITE (18,102) 
IF jlEXT.EQ. 1) WRITS (18*101) 



WRI 
WRITE 
WRITE 
WRITE 



18. 

1 8;95 
18,93 
1 8,104) 



XG UN (5) , YGUN (5) , ZGUN(5) 



CARD 7 (VULNERABLE AREA TABLE VS TYPE 3 WEAPONS) 



WRITE 

WRITE 

WRITE 



18,39 9 
18,149 
18,100 



(VAT3 (I) ,1 = 1,20 8) 



EXTENDED OUTPUT OPTION 

WRITE (18,3101) 

IF (IEXT.NE. 1) WRITE 
IF (IEXT.EQ. 1) WRITE 



WRITE 

WRITE 

WRITE 

WRITE 



18.94 

18.95 
18,93. 
18,10^) 



j 18 , 102 ) 



18,101) 

XG UN (6) , YGUN (6) , ZGUN(5 ) 



18,102) 
18,101) 



EXTENDED OUTPUT OPTION 

WRITE (18,3101) 

IF (IEXT.NE. 1) WRITE ( 

IF JlEXT.EO. 1 WRITE ( 

WRITE (18,94) 

WRITE 18,95) XGUN (7) , YGUN (7) , ZGUN (7 ) 

WRITE i 18,93) 

WRITE (18,109) 

CARD 7 (VULNERABLE AREA TABLE VS TYPE 5 WEAPON) 



WRITE 

WRITE 

WRITE 



18,39 9 
18,150 
18,100 



(VAT5 (I) ,1=1 , 208) 
EXTENDED OUTPUT OPTION 



WRITE ( 
IF (IEX 
IF jlEX 
WRITE ( 
22 IF (IPN 
FORMAT ST 

40 FORMAT 

41 FORMAT 

42 FORMAT 

60 FORMAT 

61 FORMAT 
68 FORMAT 

79 FORMAT 

80 FORMAT 

81 FORMAT 

82 FORMAT 

83 FORMAT 

84 FORMAT 

85 FORMAT 

86 FORMAT 

87 FORMAT 

88 FORMAT 

89 FORMAT 

90 FORMAT 

91 FORMAT 

92 FORMAT 

93 FORMAT 

94 FORMAT 

95 FORMAT 



18,3101) 

T.NE. 1) WRITE 



T.EQ. 1 
18,11 0 



(18,102) 
WRITE (18,101) 



RETURN 



.811, F10. 

1 . 1 *) ) 



0) 



CH'.EQ. 1) 

ATEMENTS 
3F10.0) 

3F10.0). 

FI 0. 0,12,1 
IX, 10 ( F7. 

IX,'/**) 

1X,8F8.3) 

•// EX EC PGM=P1AD* ) 

V/STEPLIB DD DISP=SHR,DSN=MSS.F0559.?IPSAV’) 
»//GO. FT07F001 DD UNIT=SYSDA , SPACE= (CYL, (1, 1,) ) 
'// DCE=(RECFM=V3S,LRECL=404 , 3LK S IZE=3 23 6) *) 
V/GO. FT09F001 DD DUMMY’) 

’//GO. FT06F001 DD SYSOUT=A’> 

•//GO. FT05F001 DD 3’ ) 

• 1 . 1 , 0 , 0 , 0 , 0 ’) 

• 01 * 

* 02 ' 

•05' 

’ ' AIRCRAFT 



•0,12,0, • ,F7. 2 , * 
10 (F7. 1, IX) ) 

*04' ) 

*03' 

3 (IX, F7. 0) 



COMBAT SURVIVABILITY SCENARIO’) 

, 100000 . - -- ■ — 



,',F7.4,’/') 



0.0,360.0 ’) 
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96 

97 

398 

98 

399 

99 
100 

3101 

101 

102 

103 

104 

105 



106 

107 

108 

109 

110 

149 

150 
155 



FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
• 1 . 0 ' 

• ioco: o 

FORMAT ( 

FORMAT ( 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

CONTINU 



0,1,1,1,1,1,0.0,50.') 

1,1 , 1 . 0 ') 

06' ) 

Vj9',9(lX,F7.3) ) 

' VULNERABLE AREA TABLE VS TYPE 1 AND 2 WEAPONS') 
8F8. 3) 

■ 12 * ) 

1 , 1 , 1 , 1 , 1 , 1 , 1 ') 

0 , 0 , 0 , 0 , 1 , 1 ,1 ' 

0,2,1,1,1,1,0.0,50.0') 

0,3, 4,4,1, 1,0.0,50.0* ) 

14* ,l5 * 5 0 1.0',7X,F6.1 

X, 15, F10. 2 , /' GEND ' , /, 3X, '19 



4X, • 1 
7 



F 



OE-06 ' 
93.0 



6 X , ' "I ' , 

180.0 



1 1 



10.3,/,8F10. 3,/, 3F10.3) 
0,3, 3. 4, 1,1 ,0.0,50.0* ) 

13* ,13,15, • 0.35') 
0j5,3,2, 1, 1 ,0.0,50.0' ) 

VULNERABLE AREA TABLE 
VULNERABLE AREA TABLE 



VS 

VS 



TYPE 

TYPE 



3 

5 



WEAPONS ' ) 
WEAPON' ) 



COMMENCE PUNCHED OUTPUT OF THE MICE- II CARD DECK 

CHECK FOR VALID MISSILE DESIGNATION NUMBER FOR MICE II 
IF (ISAM. IE. 7. AND. ISAM. GE. 1) GO TO 156 
RETURN 

THE JCL CARES 



156 WRITE 
WRITE 
WRITE 
WRITE 



17.200 

17.201 

17.202 

17.203 



THE OUTPUT TITLE CARDS 

WRITE (17,204) 

WRITE (1 7,205) 

THE PROBLEM RUN INPUT CARDS, CHECKING FOR TYPE OF MISSILE 
TO INPUT TO MICE II 



WRITE (17,20 6) 
IF (ISAM. EQ.1 • 
IF (ISAM. EQ.2 
IF (ISAM. EQ.3 
IF ISAM. EQ.4 
IF (ISAM. EQ.5 
IF (ISAM. EQ.6 
IF (ISAM . EQ.7 



WRITE (17,250 
WRITE (17,251 



WRITE 

WRITE 

WRITE 

WRITE 

WRITE 



17,252. 
17,253 I 
17,254' 

17.255 

17.256 



UP 10 



THE PSSK CALCULATION CARDS 



WRITE 

WRITE 



(1 7,208) 
( 17,20 9) 



THE RADAR CROSS SECTION TABLE 



WRITE 

WRITE 

WRITE 

WRITE 

WRITE 



17,21 0) 
17,21 1 
17,21 2 
17,21 3 
17,214 



(RCSTAB (I) ,1=1 , 133) 



THE SIMULATION TIME PARAMETERS 



WRITE 

WRITE 



(17.21 5) 

(17.216) 



nnn n non non non on 
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THE MISSLE LAUNCHER LOCATION 
FTFAC=3. 28084 



WRITE (17,217) 
XFSAM=Xr‘^“" 



LS AM*FTF AC 
YFSAM=YSAM*FTFAC 
ZFSAM=ZSAM*FTFAC 

WRITE (17,218) XFSA M , YFS AM , Z FS AM 



THE TARGET TRAJECTORY 



WRITE (17,219) 
( 17,220) 



WRITE ( 17,22 0) MNUM 
THE MILESTONE CARDS 
DO 



160 1 = 1, MNUM 
X(I) =X(I) *FTFAC 
Y(l) = Y(lj *FTFAC 
Zjl) = Z (l}*FTFAC 
VEL (I) =VEL (I)*FTFAC 

WRITE (17 ,221) T (I) ,X (I) , Y ( I) ,Z(I) ,VEL (I) ,CA (I) ,RA (I) 
CONTINUE 



160 

END OF PUNCHED CARDS 
WRITE (17,222) 

170 RETURN 

/////*>** FORMAT STATEMENTS ***$*///// 



HDG (I) 



200 

201 

202 

20 3 

204 

205 

206 
208 

209 

210 

21 1 
212 



FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
1 '60- 
26X, 



K') 



•// EXEC PGM=MICE, REGION= 180 
V/STEPLIB DD DSN=NSS. F0559. MICE SAV, DISP = SHR •) 
' //FT06F001 DD SYSOUT=A') 

'//FT05F001 DD 7') 

• 01 * ) 

•AE 3251 UR VIVA BILITY 

• 02 ' ) 

•06* [ 

9X ,' O' ,8X,' 0.' , 9X , * 0 ' ,4X,'0' 



•o6») ' 

7X,'23.',3X,'19' ,4X,'7',4X. ' 1') 
8X,*0. ' , 7X. ' 10.' . 7X. '20.' ,7X , ' 30 . ' , 

7t nnJ 7Y «an_ I 7 y j qn. i fir nnn. 



SCENARIO? SAM ENCOUNTER') 

,4X,'0',8X,'0.',8X,'0. •) 



6 * 



5' ,7X, '0.1 ' ,7X,' 8.0 • ,7 X, '0 .0' ,8X, ' 0. ' ,7X, '3 0. ' , 3X, 



218 

219 

220 
221 
222 

250 

251 

252 

253 

254 

255 

256 



• 1 1 

2X 



) 



*'l2 

9x, 

F7. 

•20 

9X, 

9X, 

9X, 

9x, 

9X, 

9X, 

9X, 



. 2 ) 



>.' t /;7X,'70. 1 ,7^, *80. f .li.' 90. , 
. ua ,'130. ',/. 6X,» 140. *.6X. M50. ',6X. ' 

213 FORMAT (6X,» -90. • ,6 X, 1 -60 . • , 6X , * -30. 
17X, ,C *0.') 

214 FORMAT* (7F 10 . 2 ,/, 7F 1 0. 2, /, 5F 1 0 .2) 

215 FORMAT ('09') 

216 FORMAT (7X,'0 

1 * 0 .') 

217 FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

cccccccccccccccccccccccccccccccccccccccccc 

CCCCC ELFIN 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC cccccc 
SUBROUTINE ELFIN (LAST) 



,'30.',7X.'40.',7X,'50.'.7X, 
X, *100.' .5X. • 110. • ,6X. ' 120.* , 
160' ,6X, *170. ',6X r '18 0.') 

• ,8X, ' 0. • , 7X, • 30. r ,7X, ' 60. • , 



F 8. 2, 2F1 0 

J 1 ' ,2X,I3 ,4X, ' 1 • ,4X .' O', 8 
, 4 FI 0 . 1 , 3F6. 1,4X,'0. ' ,4X 

, 4X , ' 4 

, 4X , ' 4 
, 4X , ' 4 
,4X,'4 
, 4X , ' 4 
,4X,'4 



X. '0. ' ,3 X, '0. ' , 8X , ' 0. 
, ’ 0. • • 



) 



1 • , 4X, ' 1 
2' , 4 X , ' 1 
3' ,4 X , ' 1 
4* , 4 X , ' 1 
5* , 4 X , ' 1 
6* , 4X , ' 1 
7* ,4X, ' 1 



4X, 



,4X,» 
, 4 X, ' 
» 4 X , * 
, 4 X, ' 
,4X,' 
, 4 X, ' 



3X , ' 
3X, ' 
3X, ' 
3X , ' 
3X , ' 
3X, • 
3X,» 



10', 4X, 
10', 4X, 
10', 4X, 
10' , 4 X , 
10', 4X, 
10', 4X, 
10* ,4X , 



• 1 ' , 4 X , 


'O' ) 


' 1 ' , 4 X, 


•O' 


' 1 ' , 4X, 


'O' 


' 1 ' , 4 X , 


•O' 


' 1 ' ,4X, 


•O' 


' 1 ' ,4X, 


'O' 


• 1* , 4 X , 


•O' 



CCCC CCCCCC CCCCCCCCCCCC CCCCC 

cccc cccccc ccccccccccccccccc 

CCCCC 

CCCCCCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCCCCCC 



T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T 3 
T 3 
T 3 
T3 
T 3 
T3 
73 
T 3 
T3 
T 3 
T3 
T3 
T 3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
3 
T3 
T3 
T3 



1 

1 

1 < 
1 « 
1 i 
1' 
1 « 
1 
1 

1 1 
1 * 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 



ipi 






if.! 
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C 

C 

c 



COMMON /O FT/I GO N , IPNCH , IE XT, ISA M,I MP, KER 
COMMON/MN/ I BAUD , MINY, MAXI , MIN X,M AXX ,MIN 1 , MAXI 



WRITE PROMET 



10 



c 

c 

c 



CALL MOVABS(MINX,MAXY+5) 
CALL ANMCDE 
WRITE (6, 590) 

ICT=4 + 8»IBAUD 
DO 10 1=1, ICT 
CALL EELL 

CALL MOVABS (MINX , MAXY + 5) 
CALL CRWABS (MINX + 400, MAX 
CALL SCO HSR ( L 1 , 1 , J) 



Y+5) 



CLOSE GRAPHICS ROUTINES 



C 

C 

C 



CALL 

CALL 



NEWPAG 

FIN 



OLD (LAS T= 0) OR NEW (LAST=1) FLIGHT PATH? 



C 

C 

C 



IF (LAST .EQ. 0) GOTO 20 



REQUEST USER OUTPUT OPTIONS 



15 



WRITE (6,595) 
READ (5 ,*) LAST 



20 



IF (LA&r.GE. 2 . OR , 
LAST= 1 + 8 2 1 * LAST 
WRITE (6, 610) 

WRITE(6 ,620) 



LAST. LT . 0 ) GO TO 15 



READ (5,^) IPNCH 



C 

C 

C 



IF MILESTONES CAME FROM DISK, RETURN END OF FILE MARKER 



IF 

IF 

IF 



<i 



LAST 

IPNCH 



EQ. 



• E Q. 

PNCH.EQ. 2) 



100 



0) LAST=83 
0) RETURN 
) GOTO 100 
WRITE (6,630) 

READ (5,*) IEXT 
IF (IP NCH .EQ. 

WRITE(6, 640) 

READ (5,^) ISAM 
IF ((ISAM 



1) RETURN 



590 
595 
6 00 
6 10 
620 
630 
640 



RETURN 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
END 



LT. 1) .OR. (ISAM .GT. 7)) GOTO 100 



♦ HIT ANY KEY FOR OUTPUT OPTION SELECTION') 

ARE YOU FINISHED WITH THIS FLIGHTPATH: 0=NO; 1=YES') 

SCREEN OUTPUT: 0=NO OUTPUT: 1=OUTPUT DESIRED') 

OUTPUT FILE: 0=NO OUTPUT; 1 =P001 FILE ONLY') 

2= MICE FILE ONLY; 3 = P001 S MICE FILES') 
EXTENDED OUTPUT: 0=NOT WANTED; 1 = EXTENDED OUTPUT') 
MISSILE TYPE BETWEEN 1 AND 7') 



T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 



CCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCC CCCCCC CCCC CCCCCCCCCCCCCCCCCCCCCCCCCCT3 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCC CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT3 
CCCCC SAMCHK CCCCCT3 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCC CCCCCC CCCC CCCCCCCCCCCCCCCCCCCCCCCCCCT3 
CCCCCC CCCCCC CCCCCC CCCCCCCCCCCCCCCCCC CCCCCC CCCC CCCCCC CCCCCCCCCCCCCCCCCCCCT3 
SUBROUTINE SAMCHK (X ,IERR) T3 

IERR=0 T3 

IF (X .GE. 6000.) RETURN T3 

CALL ERRMK (13) T3 

IERR= 1 T3 

RETURN T3 

END T3 

CCCCCC CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCC CCCC CCCCCC CC CCCCC CCCCC CCCCCCCCT 3 
CCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCC CCCCCC CCCC CCCCCCCCCCCCCCCCCC CCCCCCCCT 3 
CCCCC AIMPT CCCCCT3 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT 3 
CC CCCCCCCCCC CCCCCC CCCCCCCCCCCCCCCCCC CCCCCC CCCC CCCCCCCCCCCCCCCCCCCCCCCCCCT 3 
SUBROUTINE AIMPT (I) T3 



1 
1 
1 
1 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 

?'■ 



I 



1 r 

1 i, 



1 

1 i, 

' 

1 

1 , 

1 |! 

i :i, 

?! 

I 1 ? 

i i: 
1 ;! 

u 

1 s 



If I 
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C 

c 

c 



COMMON/TA R/T ARGX , TARGY 
COM NO N/PA R/X (200) ,Y (200) 



MOVE TO CURRENT MILESTONE COORDINATES 



C 

c 

c 



CALL MOVEA (X (I) , Y (I) ) 



DRAW DASHEE LINE TO TARGET 



1) 



CALL DASHA (TARGX, TARGY, 

RETURN 
END 

cccccccccccccccccccccccccccccccccccccccccc 

cccccccccccccccccccccccccccccccccccccccccc 

CCCCC CONCHG 

cccccccccccccccccccccccccccccccccccccccccc 
cccc cccccccccccccccccccccccccccccccccccccc 
SUEROUTINE CONCHG 

COMMON/P AR3/TMD, ACLI FT.CLMAX, WL,TMAX 
COMMON/P AR4/ APPM AX, HTMIN , HT MAX ,SPDMI 
COMMON/T AR/T AR GX , TAR GY 
CALL NEWFAG 



T3 
T 3 
T 3 
T 3 
T 3 
T 3 
T3 
T 3 
T 3 
T 3 
T 3 
T 3 



CCCC CCCCCCCCCCCCCCCCCCCCCCCCCCT3 
CCCC CCCCCCCCCCCCCCCCCCC CCCC CCCT 3 

CCCCCT3 

CCCC CCCCCCCCCCCCCCCCCCC CCC CCCCT3 
CCCC CCCCCCC CCCCC CCCCCCCCCCCCCCT 3 

T3 

, CDO ,CDK, V MA XI ,VMAX2 
N, GM AX , POP MIN 



C 

C 

c 



WRITE INSTRUCTIONS 



30 



WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
READ ( 
11 

GO TO ( 



6 , 100 ) 

6, 105 i 



%• 

f ' 

V 



110 

115 

120 

125' 

130 

135 

140) 



U , IT 

'til 

200,2 



0) .OR 



R. (K 

#6,7, 





READ (5.*) 
GO TO 30 


CLMAX 


3 


WRITE (6, 20 3) 
READ (5, *) 
GO TO 30 


WL 


4 


WRITE (6,20 4) 
REAE (5.*) 
GO TO 3 0 


SPDMIN 


5 


WRITE (6,20 5) 
REAE (5.*) 
GO TO 30 


GMAX 


6 


WRITE (6,206) 
REAE (5.*) 
GO TO 30 


HTMIN 


7 


WRITE (6, 20 7) 
READ (5, *) 
GO TO 30 


HT MAX 


8 


WRITE (6,20 8) 
REAE (5.*) 
GO TO 30 


POP MIN 


9 


WRITE (6,209) 
REAE (5, fc ) 
GO TO 30 


APPMAX 


10 


WRITE (6,21 0) 
READ (5. $) 
GO TO 30 


TMAX 


1 1 


WRITE (6, 21 1) 
REAE (5. ft ) 
GO TO 3 0 


CDO 


12 


WRITE (6,21 2) 
REAE (5.*) 
GO TO 30 


CDK 


13 


WRITS (6,21 3) 






REAE (5, *) 


VMAX1 



-GT. 17)) GO 
8,9,10,1 1,12, 1 



TO 30 

3,14,15, 16,17) 



T3 
T3 
T3 
T3 
T 3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T 3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T 3 
T3 
T 3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 



i : 
i : 
i : 
i : 
i ; 
i : 
i ; 
i : 
i : 
i : 
i : 
i : 
i : 
i : 
i : 
i : 
i : 

1:1 

]:! 

1 I 



1 l 

I! 

i i 



1 ;i' 



1 

i i 



1 
1 



1 i 



1 V 

1 f ; 



1 
1 
1 

} 'i 

i f 1 



ii' 1 , 



ii- 



if 



f'i- 



i 



1 V 

1 ! 
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14 

15 



GO TO 30 
WRITE (6,21 4) 

READ (5.$) VMAX2 
GO TO 30 
WRITE (6,215) 

READ (5.*) 

GO TO 3 0 



TARGX,TARG Y 



READ NEW PARAMETER VALDES FROM THE DISK 



16 



REWIND 16 
READ 
READ 
READ 
GO TO '3 



3 

8 



6. 300) CLMAX, WL,SPDMIN,3MAX,HTMIN,HTMAX 
6,300 POPMIN , APPMAX.T MAX ,CD0 ,CDK,VMAX1 

6. 300) VMAX2,TARGX,TARGY 
0 



WRITE PARAMETER VALDES TO THE TERMINAL 



17 



WRITE (6,25 
WRITE (6 
WRITE (6 
WRITE (6 
WRITE (6 
WRITE (6 
GO TO 3 



0) 

,3 00) CLMAX,WL,SPDMIN,GMAX,HTMIN, HTMAX 
, 255) 

,300) POPMIN, APPM&X ,TM AX , CD0, CDK, VM AX 1 
, 260) 

.300) VMAX2,TARGX,T ARGY 

0 



SAVE PARAMETER VALDES ON DISK AND RETORN TO CALLING ROOTINE 



200 



REWIND 16 



WRITE (1 6 , 300) CLMAX. WL.SPD MI N , G M 
WRITE (16, 300) POPMIN, APP MAX, T MAX 



1 00 
105 
110 
1 15 
120 
125 



130 
135 
140 
2 02 
203 
2 04 
2 05 
206 
2 07 
208 

209 

210 
211 
212 

213 

214 

215 
250 
255 



260 

300 



FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
$ LIFT*) 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
&MAX SP 0 
FORMAT 
FORMAT 



WRITE (16^300) VMAX2,f ARGX, t£rGY 
RETURN 



AX, HTMIN, HTMAX 
,CD0 ,CDK, VMAX1 



SELECT PARAMETER TO BE CHAN 
2=M AX LIFT COEFF; 3=WING LO 
5=M AX G FORCE; 6=MIN ALT; 7 
8=D ISTANCE TO TARGET BEFORE 
9=M AX APPROACH ALT; 10=MAX 



GED; 1 = NO MORE CHANGES') 
ADING; 4 = STALL SPEED') 

= MAX ALT (< 22 00 MTR) •) 
POPUP ALLOWED') 

1 1 =DR i 



T/W RATIO; 



:ag CDEF. W/0 



12= LIFT DRAG CONSTANT: 13=M 
1 4= MA X SPD W/O BOMB; 15=TAR 
16= RE AD PARAMETER FILE; 17 = 
ENTER MAX LIFT COEFFICIENT' 
WING LOADING') 

STALL SPEED') 

MAX G FORCE ALLOWED') 
MINIMUM ALTITUDE') 
MAXIMUM ALTITUDE (LSS 
MINIMUM DISTANCE TO T 
MAXIMUM APPROACH ALTI 
MAX THRUST TO WEIGHT 
DRAG COEFFICIENT FOR 
LIFT DRAG CONSTANT') 
MAX SPEED CARRYING A 
MAX SPEED AFTER BOMB 
TARGET X AND Y COORDI 
WING LD STALL SPD 



ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
MAX CL 



AX SPD WITH BOMB’ 
GET COORDINATES • 
LIST PARAMETERS') 



POP-UP DIST 
WITH BOMB') 

• MAX SPD W/O 
6 FI 2. 4) 



APPR. HT. 



MAX 



BOMB' ) 

IS RELEASED' ) 
NATES') 

MAX G M IN. HT. 
THRUST CD0 DRAG 



30MB 



TARGET X COORD. 



END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC cccccc 
C SUBROUTINE ERRCHK 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE ERRCHK (ISRR) 



CCCCCCCCCCCCCCCCCCCCCCC 

ccccccccccccccccccccccc 

c 

ccccccccccccccccccccccc 

ccccccccccccccccccccccc 



COMMON/P AR/X (200) .Y (200) ,Z (200) ,HDG ( 
CCMMON/P AR1/XDOT (20 0) , YDOT 



T 3 1 
T3 1 
T3 1 



T3 1 



T3 1 
T3 1 
T3 1 
T3 1 
T3 1 
T3 1 
T3 1 
T3 1 
T3 1 
T3 1 
T3 1 
T3 1 
T3 1 
T3 1 i 



S THAN 2000 METERS)') 

ARGET BEFORE POP-UP ALLOWED') 
TUDE* ) 

ALLOWED* ) 

ZERO LIFT') 



MAX. HT. •) 
CONSTANT 



TARGET Y COORD. ') 



COMMON /P AR2/T (200) 



. 200) ,CA (200) ,RA (200) ,VEL(200) 
(200) ,ZD01? (206) ,MNUM,MBR 



I: 



T3 1 
T3 1 ) 
T3 1 | : 
T3 1 



T3 1 



T 3 1 ; 

T 3 1 i- 
T3 i : 
T3 1 
T3 i 
T 3 ij 
T3 1 
T3 1 II 
T3 1 V 
T3 1 |l 
T3 1 ;i 
T 3 1 ■!.■ 
T 3 1 ;i 
T3 1 II 
T3 i ;; 
T3 1 1;< 
T3 1 II i 
T 3 HV 
t 3 i :: i 
t 3 1 . 
T3 1 (I i 
T3 1 D 
T3 1 f'i 
T3 1 !': i: 
t 3 i 
T3 i i* 
T3 1 It' 
T 3 lit 
T 3 1 ft 
T3 1 it'!; 
T3 1 



T3 i r; 

T3 1 It,; 



T3 1 
T3 1 
T3 1 






T3 1 11 ' 
T3 1 



T3 i u 

T3 111:; 
T3 1 -til 

T3 1 1.1,: 

T 3 1 
T3 1 I!' 
T3 1 
T3 1 
T3 1 
T3 1 
T3 IT 
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COMMON /TAR/T ARGX,TARGY 

COMMON/P AR3/TMD,ACLIFT,CLMAX,WL,TMAX ,CD0,CDK 
COMMON /P AR4/ APPM AX, HTMIN, HTMAX ,SPDMI N, GM AX , POP MIN 
DATA TMSAV/- 1./ 

DX=TARGX-X (MNUM) 

DY=TARGY-Y (MNUM) 

DIST=SQRT (DX**2 + DY**2) 

C 

C INITIALIZE POPALT AND TMSAV 
C 

IF (fMNUM.NE.2) . AND. (TMSAV. NE .-1 .) ) GO TO 15 
POP AIT=0 . 

TM S A V=TM AX 

15 IF(MBR.EQ.O .AND. T MAX. NE. TMSAV) TMA X=TMS AV 
CALL ERRMK (2 2) 

IF (MB R .GE. 1) GOTO 30 

IF ((CIST .LT. POPMIN ) . OR . (Z(MNUM) .LT. APPMAX)) GOTO 30 
IERR =4 
RETURN 

30 IF (DIST.LE. POPMIN .AND. Z (MNU M) . GT. POPA LT) POP ALT=Z ( MNUM) 

35 IF (Z (MNUM) . GE. HTMIN) GOTO 40 
IERR = 3 

RETURN 

40 IF (Z ( MNUM) .LE. HTMAX) GOTO 45 
IERR=4 
RETURN 

45 IF (VEL (MNUM) .GE. SPDMIN) GOTO 50 
IERR = 5 
RETURN 

50 IF (MNUM .EQ. 2) RETURN 

IF jACLIFT .LE. GMAX) GO TO 51 
IERR= 1 
RETURN 
C 

C COMPUTE DRAG AND LIFT FORCES 
C 

51 RH0=0. 0256*EXP (-0.103* (Z (MNUM) /1000. )) 

IF (Z (MNUM) .GE. 10670.) GO TO 52 

RH 0=0. 0079 3* EXP (-0. 1 56* (Z (MNUM) - 1 0670. ) /1 0 00 . ) 

52 CL=2*ACLIFT/ (RHO* (VEL (MNUM) **2 ) /ML) 

IF (CL .LE. CLMAX) GO TO 53 

IER R = 17 
RETURN 

53 DW=( (CDO+CDK*CL*CL) /CL) * ACLIFT 
TW=TMD+DW 

IF ((TW .LE. TMAX) .AND. (TW . GE. 0.)) GOTO 55 
IF (TW .GT. TMAX) IERR=18 

DW= i RHO* (VEL (MNUM)** 2) /WL) * (0.05 +CD0+CDK* (CL®*2) ) /2. 

IF (TMD+DW .LE. 0) IERR=1 
IF (IERR .NE. 0) RETURN 
55 IF (MNUM .NE. MBR) RETURN 

C EVALUATE BOMBING RUN 

C 

DT=T (MNUM) -T (MNUM-1) 

TGTHDG= ATAN2 (D Y, DX) *57.29578 
IF (TGTHDG .LT. 0.) TGTH DG=T GT HDG+36 0. 

DX=X (MNUM) - X(MNUM-I) 

DY=Y (M NUM) - Y jMNUM-li 

ACHDG=ATAN2(DY r DX)*57. 29 578 

IF ( ACHDG .LT. 0.) ACHDG=ACH DG+ 36 0 . 

HDGLMT= AES (TGTHDG -ACHDG) 

IF (POPALT .GE.1000.) GOTO 58 
IERR=6 
RETURN 

58 IF (Z ( M NUM) .GE. 100.) GOTO 60 
IERR=7 
RETURN 

60 IF (Z (MNUM) .LE. 2000.) GOTO 65 
IERR=8 
RETURN 

65 IF (DIST .LE. 2000.) GOTO 75 
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IERR=9 

RETURN 

IF (HDGLMT .LE. 5.) GOTO 80 
lERR= 10 
RETURN 

IF (DT . GE. 2. 33) GOTO 85 
IER R = 1 1 
TM AX= 1 . 2*’TMAX 
RETURN 
END 



non non noon 



APPENDIX C 



KBPIP MODIFIED MODULES 




CALL ERRSET 
RESULT FROM 



MAXI 

200) ,RA (200) , 7 EL (200) 
..UM,MBR 
XSAM, YSAM,ZSAM,GR(7) 



SUPPRESSES ANY POSSIBLE UNDERFLOW PROBLEMS THAT MAY 
MANIPULATION OF SCENARIO PARAMETERS. 



211 



212 

220 



250 

252 



CALL ERRSET (208,50,-1, 1, 1) 

MER=0 
M NUM=0 
CALL BEGIN 
CALL SCENE (0,0) 

IF (IGUN .NE. 1) GOTO 250 

ACCEPT USER INPUT OF GUN SITES 

REWIND 10 
CALL ERR MK (1 6) 

LTR=0 

LTR2=0 

DO 212 1=1,6 
IERR=0 

CALL XYZIN(O) 

XGUN (I) =X1 
YGUN (I) =Y 1 
ZGUN (I =Z1 

IF(Z1.GT. 1000.) STOP 

IF (I .GE. 5) CALL GU NCHK (X 1 , Y 1 , I ERR) 

IF (IERR * EQ. 0) GOTO 212 
CALL ERRMK(IERR) 

GOTO 211 

WRITE (10 ,501) XI , Y1 ,Z1 
CALL ERRM K ( 14) 

CALL XYZIN(O) 

XS AM = X 1 
YSA M= Y1 
ZSAM=Z1 

IF (Z 1 .GT. 1000.) STOP 
CALL SAMCHK (X1.IERR) 

IF (IERR .NE. 0) GOTO 220 
WRITE (10, 50 1) X1,Y1,Z1 

IGUN =2=== > READ GUN SITES FROM DATA FILE 

IF (IGUN .NE. 0) GO TO 260 
DO 252 1=1,6 

READ (1 0,50 1) XGUN (I) , YGUN (I) , ZGUN (I) 
READ(10 , 501) XSAM, iSAM ,ZSAM 
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C 

C 

C 



'2 60 
265 



C 

C 

c 



DRAW GUN SITES AND ENGAGEMENT CIRCLES 

D ° CALL I GufiLOC (XGUN (I) ,YGUN (I) ,GR (I) ) 

CALL GUNLOC (XSAM, ISAM, 150.) 

THIS SECTION ACCEPTS THE FLIGHT MILESTONES 



300 



C 

C 

C 



FTFAC= 3. 280 84 
DGFAC=57. 29578 
CALL ERRMK (15) 

REWIND 11 
MNUM=MNUM+1 

READ MILESTONES FROM THE DISK 



C 

C 

C 



302 IF (IMP .NE. 0) GOTO 305 

X READ (11. 6 25) X (MNUM) .1 (MNUM) .Z(MNUM) ,VEL (MNU M) , LTR 
IF ( X (M&U M) . LE. 0.1) GOTO 302 
IF (LTR . EQ. 1) IMP=1 
LTR2=LTR 
GOTO 308 

READ MILESTONES FROM THE TERMINAL 



305 CALL XYZIN(I) 
X (MNUM) =X1 
I (MNUM) =Y1 
Z (MNUM) =Z1 



C 

C 

C 



COMPUTE FLIGHT PARAMETERS AND CHECK FOR ERRORS OR USER COMMANDS 



308 



VEL (MNUM) =7 1 

IF (MNUM.EQ.1 .AND. LTR. EQ. 83 ) STOP 

IF (MNUM.EQ.1) GOTO 300 

IERR=0 

CALL VALSET (IERR) 



(LTR.EQ .82) .OR. (LTR2. EQ. 82) ) . AND. (IMP. NE. 0) ) GOTO 350 
CTR .EQ. 66) .OR. (LTR2 . EQ. 65)) MSR=MNUM 
LTR .EQ. 83) .OR. (LTR2. EQ. 83)) GOTO 370 
IERR .EQ. 0 ) CALL ERRCHK (IERR) 

__ . (IERR^KER.EQ.O) .AND. (IERR .NE.12))GOTO 310 

CALL ERRMK(IERRf „ _ 

IF (IMP . NE. 0) GO TO 305 
CALL ERRM K ( 20) 



IF 

IF 

IF 

IF 

IF 




GO TO 305 

C MILESTONE ACCEPTED', RESTART THE SEQUENCE 
3 10 CALL PTHPLT 

IF (LTR . EQ. 65 .OR. LTR2.EQ.65) CALL AIMPT (MNUM) 
GOTO 3 00 



C 

C 

C 



'350 



C 

C 

C 



THIS SECTION RESETS THE DATA 

CALL SCENE( 1 , ICT) 

REWIND 19 

LTR=0 

LTR2=0 

IF (MBR .GT. ICT) MBR=0 
COMPLETE RESTART 

1) GOTO 35 2 



352 

355 



IF (ICT .GT. 

MNUM=0 
GOTO 260 

IF ((ICT .GE. MNUM) 
DO 355 MNUM = 2 , ICT 
CALL PTHPLT 



AND. (MNUM .GE. 3)) ICT=MNUM-1 
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C 

C 

C 



MNUM=MNUM-1 

GOTO 260 



DRAW RETAINED MILESTONES 



3 70 



C 

C 

C 



BLANK = 0 • 

CALL PTHELT 

LAST=IMP 

CALL ELFIN (LAST) 



COMPUTE FLIGHT PARAMETERS FOR FINAL LEG 



DX= X 
DY=Y 
DZ=Z 



RA 

CA 

IF 



MNUM 

MNUM 

MNUM 



(MNUM) = 0 
(MNUM) = 



X (MNUM- 1 
Y (MNUM- 1 
Z (MNUM-1 



AT AN 2 (DZ,SQRT (DX*# 2 ♦ 



371 



372 




( (EX' . EQ. 0.) 
HDG ( MNUM) =A 
GOTO 372 
EX . EQ. 0.) 
DX . EQ. 0 
EY . EQ . 0 
DY . EQ . 0 
MNUM) = VEL 
MNUM) = VEL 



'.OR. DY 
TAN2(DY, DX) 



EQ. 



DY 

0. 



$*2) ) 

) ) GOTO 37 1 



C 

C 

C 

C 



.AND. 

.AND. 

.AND. 

.AND. 

MNUM)*COS (HDG (MNUM 
MNUM) *SIM (HDG (MNUM 



.GT. 0 
.LT. 0 
.LT. 0 
.GT. 0 



MNUM) = VEL (MNUM)#SIN(CA (MNUM) 



HDG (MNUM) =1.57079 
HDG (MNUM) =-1.57079 
HDG (MNUM =3. 14159 
HDG (MNUM) =0. 

COS (CA (MNUM) ) 

) ^COS (CA (MNUM) ) 



CREATES NEK " PTS 
HAVE BEEN INPUT 



LOC " IF NEW WEAPON OR MILESTONE COORDINATES 



375 



IF ((IMF .EQ. 0) .AND. (IGUN .NE. 1) | GOTO 377 
REWIND 11 
IGUN= 1 

WRITE ( 11,625) BLANK, BLANK, BLANK, BLANK, BLANK 
DO 375 1=1, MNUM 
LTR=0 

IF (I .EQ. MBR) LTR=66 
IF (I .EQ. MNUM LT R=LAST 

~ X (I) ,Y (I) ,Z (I) , VEL (I) 



376 



_ EQ_ .. 

WRITS ( 11,625 
WRITE ( 1 1 ,626 
WRITE (11,627 
# BLANK 

DO 376 1=1, 6 



,LTR 

VEL (1) , MBR, BLANK, BLANK , IGUN , IG UN , 3LANK , BLAN K , IGUN , 



WRITE (11,62 5) XGUN (I) ,YGUN(I) , ZGU N (I) 



C 

C 

c 



WRITE (11,62$) XSAM,YSAM,ZSAM 



CONVERT ANGLES FROM RADIANS TO DEGREES 



STOP 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
c SUBROUTINE ERRMK 

cccccccccccccccccccccccccccccccccccccccccc 

cccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE ERRMK (IERR) 



ccccccccccccccccccccccc 

ccccccccccccccccccccccc 

c 

cccc ccccccccccccccccccc 
ccccccccccccccccccccccc 



COMMON/P AR/X (200) ,Y (200) ,Z (200) , HDG ( 
COMMON/PAR1/XDOT (200) , YDOT (200 



COMMON/ERR/M KERX (3) , MKERY (15) 
IF (IERR .GT. 20) GOTO 85 

GOTO (1,2, 3, 4, 5, 6, 7, 3, 9, 10, 11 
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12, 13, 14, 15, 16, 17, 13, 19, 20) , IERR 



T 1 

T 1 
T 1 
T 1 
T1 
T 1 
T1 
T 1 
T1 
T 1 
T 1 
T 1 
T1 
T 1 
T1 
T 1 
T1 
T1 
T 1 
T1 
T 1 
T 1 
T1 
T 1 
T 1 
T 1 
T 1 
T1 
T 1 
T1 
II 
T 1 
T1 
T 1 
T 1 
T 1 
T1 
T 1 
T1 
T1 
T1 
T1 
T 1 
T1 
T1 
T 1 
T1 
T1 
T 1 



377 


DO 380 


1 = 1 .MNUM 
!) =CA ( I) *DGFAC 


T 1 




CA (3 


T 1 




R A (I 


:) =RA(I) ^DGFAC 


T 1 


380 


HDG J 


;i) =HDG(D^DGFAC 


T 1 




CALL Pi 


[ESET 


T 1 


500 


FORMAT ! 


[2 17) 


T1 


501 


FORMAT 1 


3F10. 2) 


T 1 


625 


FORMAT i 


4F10. 0,13) 


T1 


6 26 


FORMAT 


• 99999. •) 

F 10.0 ,12 ,811 , FI 0. 0) 


T 1 


627 


FORMAT 


Tl 



200) ,CA (20 0) , RA (200) , VEL (20 0) 
) ,ZD01? (200) , MNUM, MBR 



T 1 
T 1 
T1 
T 1 
T 1 
T 1 
T1 
T 1 
T 1 
T 1 
T 1 
T 1 
T 1 



C , 

c 

c 

cl 

0 i 

0:1 

0 

c 

0 

0 

0 

0 

0 

0 

0 

0 

Cl 

oj 

t 

01 
o; 

°! 

0 

0 

o! 1 : 

ol 1 

oi|: 

1 

oil,: 

$ 

W 

0 : 

Oil! 

0 

0. j i ! 

Of:, 



of 



0 ; 

of 

0,1 



0 



0 1 

of: 



0|j: 

0 : 

0, 

0 : 

0: 

O'' 

8S 

0;'i 

0 

o 

O': 

O'. 

0 «( 

01. 



NAVAL POSTGRADUATE SCHOOL 



FILE: T 1 



FORTRAN 



WRITE (6.60 1) 

GOTO 75 
WRITE (6# 60 2) 

GOTO 7 5 
WRITE (6, 60 3) 

GOTO 75 
WRITE (6. 604) 

GOTO 75 
WRITE(6, 605) 

GOTO 75 
WRITE (6. 606) 

GOTO 75 
WRITE (6, 607) 

GOTO 75 
WRITE (6, 608) 

GOTO 75 
WRITE(6, 609) 

GOTO 75 
WRITE(6, 610) 

GOTO 75 
WRITE (6, 61 1) 

GOTO 75 
WRITE (6, 61 2) 

GOTO 75 
WRITE(6. 613) 

GOTO 85 
WRITE(6, 614) 

GOTO 85 
WR IT E (6, 615) 

GOTO 85 
WRITE(6. 616) 

GOTO 85 
WRITE (6, 617) 

GOTO 7 5 
WRITE{6, 618) 

GOTO 75 
WRITE(6. 619) 

GOTO 85 
WRITE(6. 620) 

GOTO 85 

WRITE (6,6 50) X (MNUM) ,Y (MNUM) ,Z(MNOM) ,VEL (MNUM) 

RETURN 

FORMAT (' MAXIMUM BRAKING EXCEEDED’) 

FORMAT ( ' MAX G EXCEEDED’) 

FORMAT ( • ALT TOO LOW’) 

FORMAT ( ' ALT TOO HIGH*) 

FORMAT (' STALL') 

FORMAT (' POP-UP TOO LOW') 

FORMAT ( ' BMB DROP LOW') 

FORMAT(’ BMB DROP HI') 

FORMAT (' TOO FAR FM TGT') 

FORMAT ' HDG >5 DEG TO TGT') 

FORMAT!’ FINAL RUN<2.33 SEC’) 

FORMAT (' NO HORIZONTAL MOTION') 

FORMAT ( ' TOO CLOSE TO TGT') 

FORMAT?' ENTER MISSILE LOCATION') 

FORMAT!' ENTER MILESTONES' 
format!' ENTER GUN LOCATIONS') 
format!' MAX LIFT EXCEEDED') 

FORMATT' MAX THRUST EXCEEDED') 

FORMAT!' X COORDINATE LESS THAN 6000 ') . , „„ „ . % 

format!' DO YOU WANT TO FIX THE E RR0 R : 0=NO , USE THE POINT; 1 = YES' ) 
FORMAT!' X,Y,Z,AND VELOCITY' ,4F9. 1) 

:ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
:ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
SUBROUTINE PTHPLT 

zccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
zccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
SUEROU’T’INE PTHPLT 

COMMON /PAR/X *(200) ,Y (200) , Z (200 ) , HDG ( 200) ,CA (20 01 , RA (200) , VEL (200) 
CCMMON/PAR1/XDOT (20 0) ,YDOt!200) ,ZDOT (200) ,MNUM,MBR 
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C 

C 

C 



COMMON IEAOD , MINY , MAXY , MINX, MAXX 
WRITS (6,600) MNUM 



SAVE MILESTONE DATA IN TEMP DATA 



6 00 
625 



,Y (MNUM) ,Z (MNUM] 
,13,’ ACCEPTED' 



WRITE (19,625) X (MNUM) 

FORMAT (' MILESTONE * 

FORMAT (4F10. 0,13) 

RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C GUNLOC 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

cccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE GUNLOC (GX, GY, RAD) 

COMMON I EAUD, MINY, MAXY, MINX, MAXX, MIN 

RETURN 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C SUBROUTINE WIN 

C THIS ROUTINE DEFINES A WINDOW EXTENDI 

C THE HORIZONTAL AXIS, AND FROM MINY TO 

C AXIS. THE HORIZONTAL RANGE IS RX, THE 

CCCCCC CC CCCCCC CCCCCC CCCCCCCCCCCCCCCC CCCCCC 
SUBROUTINE W IN (LX ,MX , RX, RY , JMP) 
COMMON IEAUD, MINY, MAXY 
RETURN 
END 

CC CC CCCCCCCCCCCCCCCC CCCCCC CCCCCCCCCCCCCCCC 
CC CCCCCC CCCCCC CCCCCC CCCCCCCCCCCCCCCC CCCCCC 
C SPOT 

C THIS RETURNS AN X-Y PAIR AND TWO 

C THE ROUTINE CREATES A DOT AT POIN 

C OPERATOR VERIFICATION (ASCII"N"=7 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE S POT (X , Y , LI , L2) 



,VEL (MNUM) , M BR 



CCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCC 

c 

CCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCC 



1 , MAX 1 



CCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCC 

c 

NG FROM LX TO MX ON C 
MAXY ON THE VERTICAL C 
VERTICAL RANGE IS RY C 
CCCCCCCCCCCCCCCCCCCCCCC 



CCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCC 

c 

COMMAND VALUES L1SL2 C 
T X, Y AND ASKS FOR C 
8) C 

CCCCCCCCCCCCCCCCCCCCCCC 



c 

c 

c 



L 1 =0 READ X AND Y 



IF 



(LI 
WI 



c 

c 

c 



RITE (<3,6 o!)) 
READ <5, s5 ) X,Y 
GOTO 20 



GOTO 10 



L2=0 READ ALTITUDE, OTHERWISE READ ALTITUDE, VELOCITY, AND A CMD 



10 



c 

c 

c 



IE (L2. EQ. 0) GOTO 
WRITE (6,6 10) 
WRITE ]6 ,6 20) 
READ(S,$) Y,X,L1 



15 



CONVERT COMMAND TO PROPER FORMAT 



IF 

IF 



IF (LI 



IF 



L 1 
LI 



1 5 



20 
6 00 
610 
620 
6 30 



.EQ. 
.EQ. 
.EQ. 
-EQ. 

GOTO 20 
WRITE (6,630) 
READ (5,* Y 
L2=L1 



LI 



1) 

2 ) 

3. 

4 



L1 = 65 
LI =66 
L1=82 
LI =83 



li 



ENTER X AND Y COORDINATES') 
ENTER ALTITUDE, VELOCITY, AND 
OPTION: 0=NONE ; 1 = AI M ; 2 =BOMB ; 
ENTER ALTITUDE') 



FORMAT 
FORMAT 
FORMAT 
FORMAT 
RETURN 
END 

CCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC CCCCCC 
CCCCCCCCCCCC CCCCCC CCCCCCCCCCCCCCCC CC CCCCCC 
c SUBROUTINE SCENE 



AN OPTION') 
3=RESET; 4=STOP ' ) 



CCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCC 

c 



T 1 

T1 
T 1 
T 1 
T 1 
T1 
T1 
T 1 
T1 
T 1 
T1 
T 1 
T1 
T1 
T 1 
T1 
T 1 
T 1 
T 1 
T1 
T 1 
T 1 
T 1 
T 1 
T 1 
T 1 
T 1 
T 1 
T 1 
T 1 
T 1 
T 1 
T 1 
T 1 
T 1 
T 1 
T 1 
T 1 
T 1 
T 1 
T 1 
T1 
T 1 
T 1 
T1 
T 1 
T1 
T 1 
T1 
T 1 
T1 
T 1 
T 1 
T 1 
T 1 
T 1 
T1 
T 1 
T 1 
T 1 
T1 
T 1 
T1 
T1 
T 1 
T 1 
T 1 
T 1 
T 1 
T 1 
T1 
T1 



S’ 

c: : 

<! 

(> 

s ; 

(,. 

( 

( 

c 

( 

( 

c 

( 

c 

c 

c 

0 

0, 

0 

S'! 

0 

c 

c 

0 

c 

01. 
c 

Cl 

cl 

o: 

c 

Cl 

c: 

c:,! 

c: 

cv 

c; 

C.|( 

c, I 



c: 



t'i 



c|:'|: 

§f 

o,i: 



c 

I 

QU 

G f . 

Cl 

Qi 

Oi 

Cl 

C-.i'i 

06i 

C 1 !:! 

0. 

0 v 
c , 
c 
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C THIS ROUTINE DRAWS THE ATTACK MAP 

cccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE SCE NE (IRQ ,ICT) 

COMMON /LOC/X1 , Y1 ,ZT , V 1 , LTR, LT R2 



C 

C 

C 




CCCCCCCCCCCCCCCCCCCCCCC 

200) ,CA (200) , RA (200) , VEL (200) 
MINI , MAXI 



ASK USER FOR 



RESET NUMBER 
GOTO 10 



C 

C 

C 



IF (IRQ .EQ. 0) 

WRITE (6,6 00) 

READ ( o r - ) ICT 

DISPLAY DATA FOR FINAL POINT OF THE 



WRITE (6 ,6 50 ) X (ICT) , Y (ICT) ,Z (ICT) , 

10 RETURN 

6 00 FORMAT (' AT WHICH MILESTONE DO YOU » 

650 FORMAT ( * X,Y,Z,AND VELOCITY' , 4 F9. 1) 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C XYZIN 

cccccccccccccccccccccccccccccccccccccccccc 
cccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE XYZIN(IV) 

COMMON /LOC/X1 ,Y1 ,Z1,V1, LTR,LTR2 
COMMON IEAUD,MINY,MAXY.MINX. MAXX, MIN 1 , MAXI 
CALL WIN (MINX, MAXX, 1 8000. , 12000. , 1) 



RESET AS OPERATOR AID 
VEL (ICT) 

ISH TO RESTART') 



CCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCC 

c 

CCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCC 



c 

c 

c 



c 

c 

c 

c 

c 

c 



GET X,Y AND THE FIRST COMMAND 
LTR=0 

CALL SPOT (XI ,Y 1.LTR.LDM) 

CALL WIN (MIN 1, MAXI, 350. ,2200., 1) 

LTR2= 1 
LDM=I V 

GET VEL AND, IF IV=1,ALT AND THE SECOND COMMAND 
CALL SPOT(V1 ,Z1, ITR 2 , LDM) 

CONVERT LOSER CASE TO UPPER CASE 



IF (LTR .GT. 96) LTR=LTR-32 
IF JLTR2 .GT. 96) LTR2=LTR2-32 
RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C SUBROUTINE BEGIN 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE BEGIN 



c 

c 

c 



COMMON/MN/IB AUD, MIN Y, M AX Y , MI NX , MAXX, 
COMMON /OPT/I GUN, IPNCH, IEXT , ISA M,I !*“ 



MP, 



CCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCC 

C 

CCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCC 

MINI , MAXI, MAP 
KER 



READ USER OPTIONS 



50 



(6 .600) 
5,*) IGUN 



600 

630 

635 



WRITE 

READ (_>, — / xv: 

WRITE (6 ,630) 

READ (5,*) IMP 
WRITE (6, 635) 

READ (5 ,” ) KER 
WRITE (6 ,640) 

READ (5,^) KON 

IF (KON .NE. 0) CALL CONCHG 
FORMAT (' GUN S : u=DIS K FILE ; 1 = TE RMI NAL 
FORMAT ( ' MILESTONE INPUT: 0=DISK FIL 
FORMAT ( ' ERROR CHECKING: 0=NO CHECKI 



;2=PRESET ’) 

S; 1 =TERMINAL ' ) 

NG; 1 =CH ECK FOR ERRORS') 
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640 FORMAT (• FLIGHT S GAME PARAMETERS: 0 =DEF AULT; 1 = USER INPUT') 
DUMMY SCREEN WINDOW COORDINATES 



C 

C 

c 



MAXX=1 
MINX= 1 
MAX1=1 

MIN1=M AXX + 10 
MAXY=1 
MINY= 1 

MAXY=777-MAXY 

MINY=777-MINY 

RETURN 

END 

cccccccccccccccccccccccccccccccccccccccccc 
cccccccccccccccccccccccccccccccccccccccccc 
cccccccccccccccccccccccccccccccccccccccccc 
CCCCC AIMPT 

CCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCCC 

cccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE AIMPT (I) 

COM MON/TA R/TARGX, TARG Y 
COMMON/PA R/X (200) ,Y (2 00) 



C 

C 

C 



c 

c 

c 



COMPUTE DISTANCE TO THE TARGET 



DX=TARGX- 

DY=TARGY 

DIST=SQRT 



-y!i| 

T (D X» 



CX 



+DY*DY) 

WRITE DISTANCE TO TARGET AND DIRECTIONS FOR ALIGNMENT TO USER 

WRITE (6-10) DIST 
EX=100.«DX/DIST 
DY=100.*DY/DIST 



10 

15 

20 



WRITE 

WRITE 

FORMAT 

FORMAT 

FORMAT 



IS • ,F8. 1 
METERS 
METERS 



[6,15) DX 
[6,20) DY 

• DISTANCE TO TARGET 

• INCREMENT X • , F8 . 1 , ' 

• INCREMENT Y',F8.1,» 

RETURN 
END 

CCCCCCCCCCCCC CCCCC cccccccccccccccccccccccc 
cccccccccccccccccccccccccccccccccccccccccc 

CCCCC ELFIN 

CC CCCCCCCCCCCCCCCC cccccccccccccccccccccccc 
CCCCCCCCCCCCC CCCCC cccccccccccccccccccccccc 
SUBROUTINE ELFIN (LAST) 

COMMON /OPT/IGON, IPNCH, IEXT, IS AM, IMP, 
COMMON/MN/ I BAUD , MINY, MA XY , MIN X, M AXX 



C 

C 

C 

C 

c 

c 



T 1 
T 1 
T 1 
T 1 
T 1 
T 1 
T1 
T 1 
T 1 
T1 
T 1 
T1 
T 1 
T1 

CCCCCCCCCCCCCCCCCCCCCCCCCCC T 1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT1 

CCCCCCCCCCC CCCCC CCCCCCCCCCCCCCT 1 

CCCCCT1 

CCCCCCCCCC CCCCC CCCCCCCCCCCCCCCT 1 

CCCC CCCCCCCCCCCCCCCCCCCCCCCCCCT 1 

T1 
T 1 
T1 
T 1 
T1 
T1 
T 1 
T 1 
T1 
T1 
Tl 
T1 
Tl 
Tl 
Tl 
Tl 
Tl 
Tl 
Tl 
Tl 
Tl 
Tl 

CCCC CCCCCCC CCCCC CCCCCCCCCCCCCCT1 

CCCCCCCCCCCCCCCCCCCCCCCCCCC 

CCCCC 

CCCCCCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCCCCCC 

KSR 

, MIN 1 , MAXI 



. • METERS' ) 
FOR EVERY 100 
FOR EVERY 100 



MTRS 

MTRS 



TO 

TO 



TGT ' 
TGT ' 1 



OLD 



(LAS T= 0) OR NEW 
IF (LAST .EQ. C 
REQUEST USER OUTPUT OPTIONS 



(LAST= 1) 
GOTO 20 



FLIGHT PATH? 



15 



20 



C 

C 

c 



WRITE (6,595) 

READ (5 ,3) LAST 

IF (LAST.GE.2 .OR. LAST. LT. 0) GOTO 15 
LAS T= 1 + 82«LAST 
WRITE(6 ,610) 

WRITE j6, 620 
READ (5,*) IPNCH 

IF MILESTONES CAME FROM DISK, RETURN END OF FILE MARKER 



.EQ. 0) 

I .EQ. 0 



IF (LAST 
IF (IPNCH 
IF (IPNCH. EQ. 2) 
WRITE (6.6 30) 
READ (5,«) IE XT 



LAST=83 
) RETURN 
GOTO 100 



C 

c 

c 

c 

c 

n 

v, 

0 

0 

c 

0 

0 

0 

G 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 ' 



Tl 


o >; 


Tl 


or; 


Tl 


o i:' 1 


Tl 


0 ( 


Tl 


0 r; 


Tl 


0 r 


Tl 


0 r. 


Tl 


OC 


Tl 


o i: 


Tl 


or 


Tl 


or 


Tl 


o 


Tl 


0 L 


Tl 


o 


Tl 


o r 


Tl 


o::,; 


Tl 




Tl 


0 if 


Tl 


0 .1; 


Tl 




Tl 


0 .i 1 


Tl 


0 i'f 


Tl 


o ;< 


T 1 


0 .1) 


Tl 


0 ' 


Tl 


o : 


Tl 


0 


Tl 


n 


Tl 


0 ' 
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FILS: T 1 



FORTRAN A 



NAVAL POSTGRADUATE SCHOOL 



100 



595 
610 
6 20 
630 
640 



.V tH-tt 

,64 0) 

■[hi 



IF ( IPNCH 
WRITE (6 , 640 
READ *' 
IF ( 
RETURN 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 



EQ. 1) RETURN 



ISAM 

. LT. 



1) .OR. (ISAM . GT. 7)) GOTO 100 



ARE YOU FINISHED WITH THIS FLIGHTPATH: 0*NO; 1=YSS’) 

OUTPUT FILE: 0=NO OUTPUT; 1=PO01 FILE ONLY*) 

2= MICE FILE ONLY; 3 = P001 S MICE FILES') 
EXTENDED OUTPUT; 0=NOT WANTED; 1 =EXTENDED OUTPUT') 
MISSILE TYPE BETWEEN 1 AND 7') 



T1 
T1 
T 1 
T1 
T1 
T 1 
T 1 
T 1 
T 1 
T 1 



b4U rUrmAT { u rD ^ <| 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT 1 
ccccccccccccccccfeccccccccccccccccccccccccccccccccccccccccccccccccccccccTi 



COMHON/P AR3/TMD, ACLIFT # CEO ,CDK,VMAX1,VHAX2 

COMMON /PAR4/APPM AX. HTMIN , HTM AX , SP DMI N , GM AX, POP MIN 
COMMON /TAR/T ARGX, TAR GY 



WRITE INSTRUCTIONS 



30 WRITE (6 , 100 



10 



1 1 



12 



13 



14 



WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 



6, 105 
6 . 1 1 0 1 
115 
120 
125 
130 
135 
140 



%' 
f ' 

|: K 

IF 0) .OR. (K . GT. 17)) GO TO 30 

GO T0^2 0 0t2, 3, 4^ 5, 6, 7, 8, 9, 10,11,12, 1 3, 14, 15, 16, 17) 
WRITE (6,202) 

READ (5 .*)CLMAX 
GO TO 30 
WRITE (6,203) 

READ (5 ,* ) WL 
GO TO 30 
WRITE (6,204) 

READ (5 .*) SPDMIN 
GO TO 30 
WRITE (6,205) 

READ (5 .*)GMAX 
GO TO 30 
WRITE (6,206) 

READ (5 .*) HTMIN 
GO TO 30 
WRITE (6,207) 

READ (5 .*) HTMAX 
GO TO 30 
WRITE (6,208) 

READ (5.* POPMIN 
GO TO 30 
WRITE (6,209) 

READ (5 .*) APPMAX 
GO TO 30 
WRITE (6,2 10) 

READ (5.*) TMAX 
GO TO 30 
WRITE (6 ,211) 

READ (5 )CD0 
GO TO 30 
WRITE (6,2 12) 

READ (5 j CDK 
GO TO 30 
WRITE (6,2 13) 

READ (5 .*) VMAX1 
GO TO 30 
WRITE (6,214) 



T 1 
T 1 
T 1 
T 1 
T 1 
T1 
T 1 
T 1 
T1 
T 1 
T1 
T 1 
T1 
T 1 
T1 
T1 
T 1 
T1 
T 1 
T1 
T 1 
T 1 
T 1 
T 1 
T1 
T 1 
T 1 
T 1 
T1 
T 1 
T 1 
T 1 
T1 
T1 
T1 
T 1 
T1 
T 1 
T1 
T1 
T 1 
T1 
T 1 
T1 
T1 
T1 
T1 
T 1 
T 1 
T 1 
T 1 
T1 
T 1 
T1 
T 1 



0 I 

0 ! 

0 

o !' 

o ; 

0 1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 1 
0 
0 
O' 
0 
O' 
O' 

01 
01 
01 
o; 
0 ! 
o: 
01 
0 ! 
0 M 
o: 
o: 
o: 
o: 
o;i 

o:, 1 ! 

o: 

o: 

o:-- 

o : 1 

o: 

0!" 

I 

c:, 

a 

c: 

ci 

ti 

&: 

0, 

Cl 

(!!, 

(j 
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FILE: T 1 



FORTRAN A 
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15 



READ (5 .*) VMAX2 
GO TO 30 
WRITE (6,2 15) 

R E AD (5 ,* ) 

GO TO 30 



TARGX , TARGY 



READ NEW PARAMETER VALUES FROM THE DISK 



16 



REWIND 16 

READ ( 16 ,3 00) CLMAX,WL. SPDMI N, 3 MAX, HTMIN, HTMAX 
READ ( 16,300) POPMIN , APPM AX, TM A X ,CD0 , CDK, VMAX 1 
READ ( 16 ,300 VMAX2, TARGX, TARGY 
GO TO 30 



WRITE PARAMETER VALUES TO THE TERMINAL 



17 



16,25 5 



WRITE (6,250) 
WRITE(6, 300 
WRITE ' 
WRITE 
WRITE 
WRITE 
GO TO 



36 



CLMAX, WL, SPD MIN, GM AX, HTMIN, HTMAX 
POPMIN, APP MAX, TMAX ,CD0 ,CDK,VMAX1 



6, 300 
6,260, 

6, 300 1 VMAX2, TARGX, TARGY 



SAVE PARAMETER VALUES ON DISK AND RETURN TO CALLING ROUTINE 



2 00 



1 00 
105 
1 10 
1 15 
120 
125 



REWIND 16 

WRITE ( 16 ,3 00) CLMAX, WL, SPDMI N,G 
WRITE( 16 ,300) POPMIN, APPMAX,TMA 
WRITE( 16 ,300) VMAX2, TARGX, TARGY 

RETURN 

') 

SELECT PARAMETER TO BE CHAN 
2=M AX LIFT COEFF; 3 = WING LO 
5=M AX G FORCE; 6=MIN ALT; 7 
8=DISTANCE TO TARGET BEFORE 
9=M AX APPROACH ALT; 10=MAX 



MAX, HTMIN, HTMAX 
X,CD0 ,CDK, VMAX 1 



130 

135 

1 40 
202 

203 

204 

2 05 
206 
2 07 
208 
209 
2 10 
211 
212 

213 

214 
2 15 
2 50 
255 



FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
$ LIFT') 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 



GED: 1=NO MORE CHANGES ' ) 

ADING; 4=STALL SPEED') 

= MAX ALT (<22 00 MTP) ') 
POPUP ALLOWED') 

T/W RATIO; 1 1 =DR AG CDEF. 



W/0 



12= LIFT DRAG CONSTANT: 1 3=M 
14= MAX SPD W/O BOMB; 15=TAR 
16=READ PARAMETER FILE; 17 = 
ENTER MAX LIFT COEFFICIENT' 
WING LOADING') 

STALL SPEED') 

MAX G FORCE ALLOWED') 
MINIMUM ALTITUDE') 
MAXIMUM ALTITUDE (LES 
MINIMUM DISTANCE TO T 
MAXIMUM APPROACH ALTI 
MAX THRUST TO WEIGHT 
DRAG COEFFICIENT FOR 
LIFT DRAG CONSTANT') 
MAX SPEED CARRYING A 
MAX SPEED AFTER BOMB 
TARGET X AND Y COORDI 
WING LD STALL SPD 



AX SPD WITH BOMB') 
GET COORDINATES ') 
LIST PARAMETERS’) 



ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
MAX CL 



260 

300 



POP-UP DIST 
WITH BOMB') 
W/O 



APPR. HT 



MAX 



BOMB 



*MAX SPD 
FORMAT (• MAX SPD 
FORMAT (6F12. 4) 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C SUBROUTINE ERRCHK 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC cccccccccccc 
cccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE ERRCHK (IERR) 



TARGET X COORD. 



CCCCCCCCCCC CCCCCCCCCCCC 

ccccccccccccccccccccccc 

c 

ccccccccccccccccccccccc 

ccccccccccccccccccccccc 



COMMQN/PAR/X (200) t Y j200^Z j200j ,HD(y 



CCMMON/PAR 1/XDGT (200) 

COMMON/PAR2/T (200) 

COMMON/TAR/T ARGX , TARGY 

COMMON/P AR3/TMD, ACLIFT, CLMAX, WL, TMAX ,CD0 ,CDK 



T1 0 ; 
T 1 01; 



T1 0: 

T1 0 



T 1 01 
T1 O' 



T1 0!. 
T1 Oi 



T 1 
T1 
T 1 
T1 
T 1 



T 1 
T 1 
T1 
T1 
T 1 
T1 
T 1 
T1 
T 1 
T1 



S THAN 2000 METERS)') 

ARGET BEFORE POP-UP ALLOWED') 
TUDE' ) 

ALLOWED' ) 

ZERO LIFT') 



BOMB') 

IS RELEASED') 

N ATES ' ) 

MAX G MIN. HT. M AX. HT. ' ) 
THRUST C DO DRAG CONSTANT 



TARGET Y COORD. ') 



200) , CA (20 0) , RA (200) , VEL(200) 
(200) , MNUM , MBR 



T 1 0 
T 1 0 



0 

0 

0 

0 

0 

0 

0 

0 

0 

0 . 



T1 0! 
T 1 
T1 
T1 



° 

O' 

0 



T1 
T 1 
T1 
T1 



T 1 Oi 



T 1 0; 



) 



T 1 0 
T 1 0 
T 1 Oi 
T 1 0; 
T1 0; 
T 1 0 ; 
T 1 0: 
T 1 0: 
T 1 0='; 
T1 0: 
T 1 0; 
T 1 0: 
T 1 0; 
T 1 0 sij 
T 1 0; 
T 1 Oi'i 
T 1 0? 



T1 Oi.}: 



T 1 0} 
T1 0} 
T1 Oi 
T 1 Oi 



T1 0 






T 1 0^ 

T1 Oil 



T 1 0: 



T1 0 
T 1 0 



T1 
T 1 



1 1 Oil;! 



T1 0,! 
T 1 0 ' 
T1 0 1 
T 1 0 
Tl 0 
T 1 0 
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FILE: T 1 



FORTRAN A NAVAL POSTGRADUATE SCHOOL 



C 

c 

c 



COMMON/PAR4/APPMAX,HTMIN,HTMAX,SPDMIN f GMAX,POPMIN 

DATA TMSAV/-1./ 

DX=TARGX-X (MNUM) 

DY=TARGY-Y (MNUM) 

DIST=SQRT (DX^^2 + DY**2) 



INITIALIZE POPALT 



AND TMSAV 

, AND. (TMSAV. NE.-1. )) GO TO 15 



15 



IF 

IF 



TMAX-NE. TMSAV) T MAX=T MSAV 

(Z(MNUM) .LT. APPMAX)) GOTO 30 



IF ((MNUM. NE.2) 

POPALT=0 . 

TM S A V=TM AX 
IF (MBR.EQ. 0 .AND 

CALL ERRMK (22) 

[MER . GE. 1) GOTO 30 
(DIST .LT. POPMIN) .OR. 

IERR =4 

RETURN _ -, MIN Z(MNUM) . GT. POPALT) POPALT=Z (MNUM) 

. HTMIN) GOTO 40 



LE. HTMAX) GOTO 4 5 
.GE. SPDMIN) GOTO 50 



30 


IF 


(DIST. GT.l 


35 


IF ( 


Z (MNUM) .< 
' IERR = 3 
RETURN 


40 


IF 


( Z (MNUM) 
IERR =4 
RETURN 


45 


IF (VEyMNUM) 
RETURN 


50 


IF 


(MNUM .EQ 



IF 



IERR = 1 
RETURN 



. 2) RETURN 

LE. GMAX) GO TO 



51 



C 

C 

C 



'51 



52 



53 



55 



C 

C 

c 



COMPUTE DRAG AND LIFT FORCES 

RH0 = 0.025 6*EXP(-0.103*(Z(MNUM) /I 0 00.) ) 

IF ( Z (MNU M) .GE. 10670.) GO TO 52 . 

RH^O.OOVOS^EXP (-0. 1 56* (Z (MNUM) - 1 0670. ) /1 0 00 . ) 

CL= ACLIFT/ (RHO* (V EL (MNUM) * 6 2) /WL) 

IF (CL .LE. CLMAX) GO TO 53 
IERR = 17 
RETURN 

DW= ( (CDO+CDKSCLSCL) /CL) *ACL IFT 
TW= T M D+DW 

IF ( (TW .LE. TMA X) .AND. (TW .GE. 0.)) GOTO 55 

DW= jRH0*1vEL^MNu!lli*2?/WL) * ( 0. 0 5+CDO+CDK* (CL**2) ) /2. 
IF (TMD + DW .LE. 0) IERR=1 
IF (IER R .NE. 0) RETURN 
IF (MNUM .NE. MBR) RETURN 



EVALUATE BOMBING RUN 

DT=T (MNUM ) -TfMNUM-1) 

TGTHDG=AT AN2(DY,DX) *5 7. 29 57 8 
IF (TGTHDG . LT. 0.) TGTH DG=TGTHD G+ 36 0 
DX=X (MNUM) - X (MNUM- 1) 

DY=Y (MNUM) - YiMNUM-li 
ACHDG=ATAN2 (DY.Dxi *57. 29578 
IF ( ACHDG .LT. 0.) ACHDG = ACHDG +360 . 

HDGLMT=ABS (TGTHDG-ACHDG) 

IF (POPALT .GE.1000.) GOTO 58 
IERR=6 



58 



60 



65 



IF 



IF 



IF 



RETURN 
(Z (MNUM) 
'1^=7' 
RETURN 
(Z (MNUM) . 
IERR=8 
RETURN 
(DIST .LE. 
IERR=9 
RETURN 



. GE . 100. ) GOTO 60 
LE. 2000.) GOTO 65 
2000.) GOTO 75 



T1 0 
T 1 0 
T1 0 



T 1 
T 1 
T1 
T 1 
T1 
T 1 
T1 
T 1 
T1 
T 1 
T1 
T1 
T1 
T1 
T 1 
T 1 
T1 



T 1 
T 1 
T1 
T 1 
T1 



0. 

R ; 

0 

°i 

0 1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 



T 1 0 
T1 0 



T 1 
T1 
T 1 
T1 
T1 
T 1 
T1 
T 1 
T1 
T1 
T 1 



0 

0 

0 

0 

0 



T1 0 
T1 0 



0 

0 

0 

C 

C 

0 

C 

0 

c 

c 

c 



T1 C 
T1 C 
T1 C 
T 1 C 
T1 ( 
T1 C 
T 1 C 
T1 ( 
T1 ( 
T1 ( 
T 1 ( 
T1 ( 
T 1 ( 
T 1 ( 
T1 i 
T 1 ( 
T1 ( 
T1 ( 
T 1 ( 
T1 I 
T 1 ! 
T 1 i 
T 1 I 

T 1 I 

T 1 I 
T 1 1 

T 1 
T1 
T 1 
T 1 
T 1 
T 1 
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75 


IF 


( HDGLMT .LE. 5 


. ) GOTO 80 


T 1 


C 






IERR = 10 




T 1 


0 






RETURN 




T 1 


c 


80 


IF 


(DT .GE. 2.33) 


GOTO 85 


T 1 


0 






IERR = 1 1 




T 1 


c 


'85 


TMAX= 1. 2 a TM AX 




T 1 


0 




RETURN 




T 1 


0 




END 






T 1 


0 



I 



I 

I; 

I; 

I; 

\\ 

ii 



I* 

|i: 

t 

li 

lj, 

i 

ij 

i 1! 



158 



APPENDIX D 



IBMPIP MODIFIED MODULES 



CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCC CCCCCCCCCCCCCCCCCCCCCCC 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C SUBROUTINE PTHPLT C 

CC CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCC ccccccccccccccccccccccc 
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE PTHPLT 

COMMON/P AR/X (200) -Y (200) ,Z (200) ,HDG(200) ,CA(200) ,RA (200) , VEL(200) 

COMMON/PAR 1/XDOT (200) , YDOT (2 00) ,ZDCT (200) , MNUM , MBR 

COMMON/M N/IB AUD, MIN Y , MAXY, MINX,MAXX 

REAL- 4 TX1 ,TY1 -TX2,TY2 

LOGICAL* 1 CHARS ( 12) 

TX1=X (M NUM-1 ) 

TX2=X (MNUM) 

TY 1 = Y (M NCM-1 ) 

TY2=Y (M NUM) 

IDENTIFY THE MAP- DRAW AND LABEL THE FLIGHT LEG 



C 

C 

c 



WIN (MIN X-MAXX- 180 00. , 1200 0. , 0) 
GBMCVE(TX1,TY1) 

GBDRAW (TX 2. TY2) 

MNUM .GT.99) IW=3 
((MNUM . GT. 9) .AND. (MNUM. LT . 100) ) 
( MNUM .LE. 9) IW=1 
CALL GAXITC (1,MNUM,IW, CHARS) 

CALL GBCHAR(TX2,TY2, 2. , 0 . , I W ,C HAR S) 
CALL GSFRCE 



CALL 
CALL 
CALL 
IF ( 
IF ( 
IF 



IW= 2 



C 

C SAVE THE POINT IN ‘TEMP DAT A 1 
C 

WRITE ( 1 9 ,625 ) X (M NUM) ,Y (MNUM) ,Z (MNUM) ,VEL (MNUM) , MBR 
625 FORMAT (4^10. 0,13) 

RETURN 

END 

CCCCCC CCCCCC CCCCCC CCCCCCCCCCCC CCCCCC CCCCCC CCCCCCCCCCCCCCCCCCCCCCC 
CCCCCC CCCCCC CCCCCCCCCCCCCCCCCCCCCCCC CCCCCC ccccccccccccccccccccccc 
C GUNLOC C 

CCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC CCCCCC ccccccccccccccccccccccc 
cccccccccccccccccccccccccccccccccccccccccccccc ccccccccccccccccccc 

SUBROUTINE G UNLOC fGX , GY, RADI 

COMMON/M N/IB AUD, MIN Y, MAXY, MINX ,MA XX, MINI , MAXI 

RE AL*4 X , Y,D X , DY 

X=GX 



C 

C 

C 



Y=GY 



IDENTIFY THE MAP AND PLACE A •+• AT THE LOCATION 



CALL 

CALL 

CALL 

CALL 

CALL 



WIN (MINX, MAXX, 18000. 



GBMCVE 

GBDRAW 

GBMCVE 

GBDRAW 



X-75. , Y) 
X + 75. ,Y) 
X, Y+75. 
X, Y-75. 



12000 ., 0 ) 
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NAVAL POSTGRADUATE SCHOOL 



C 

c 

c 



c 

c 

c 



DETERMINE NUMBER OF STEPS TO BE USED 



I STEP=3 

IF (RAD. LT. 1600.) 



DRAW 

DO 



A CIRCLE 



I ST EP=6 
AROUND THE SITE 



10 1=3. 180 .ISTEP 
ANGLE = I«0. 034907 



DX=RAP s COS (ANGLE) +X 
D Y=R A E* SI N 1 AN G LEj+Y 
CALL GBMOVE (DX + 10.,DY) 

10 CALL GBDFAW(DX-10.,DY) 

RETURN 

END 

cccccccccccccccccccccccccccccccccccc cccccc 
cccccccccccccccccccccccccccccccccccccccccc 

C SPOT 

C THIS RETURNS AN X-Y PAIR AND TWO 

C THE ROUTINE CREATES A DOT AT POIN 

C OPERATOR VERIFICATION (ASCII"N"=7 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCC CCCCCC 
SUBROUTINE S POT ( X , Y ,L1 , L2) 

RE AL*4 T X, TY , DOT 
INTEGERS L, M , KEY 
C 

C READ THE CURSOR 
C 

100 CALL GBRXYC(M,L, KEY, TX,TY) 

DOT=40. 

IF (TX .LT.350.) DOT=9. 



ccccccccccccccccccccccc 

ccccccccccccccccccccccc 

c 

COMMAND VALUES L1SL2 C 
T X, Y AND AS KS FOR C 
8) C 

CCCCCCCCCCCCCCCCCCCCCCC 



c 

c 

c 



c 

c 

c 



c 

c 

c 



MARK THE SPOT 

CALL GBGEOT(DOT,TX,TY) 

X=TX 

Y=TY 

DOES THE USER ACCEPT THE SPOT? 

CALL GBRXYC(M,L,KEY,TX.TY) 

IF (M . EQ. 0) GOTO 10 0 

CONVERT THE COMMAND TO THE PROPER FORMAT 



.NE. 1) GOTO 110 
(L . EQ. 1) L 1 = 65 
L .EQ. 2) L 1=66 
L .EQ. 3) LI =8 2 
L . EQ. 4) L 1 = 83 



L1=0 

IF 11 
IF 
I? 

IF 

110 L2=L 1 

RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCC CCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCC CCCCCC 
C SCENE 

C THIS ROUTINE DRAWS THE ATTACK MAP 

CC CCCC CCCCCC CCCCCCCC CCCCCCCC CCCCCCCC cccccc 
SUBROUTINE SCENE (IRQ, ICT) 

COMMON /ERR/M KERX (3) , MKSRY (18) 
COMMON/M N/IB AUD. MIN Y . MAXY , MI NX , MA XX , 
COMMON/P AR/X (200) ,Y (200) ,1 (200) , HDG ( 
COMMON/TAR/TAR GX,TARGY 
R E AL- 4 G X r GY 
LOGICAL**! CHARS (20) 

ICT=0 



CCCCCCCCCCCCCCCCCCCCCCC 

ccccccccccccccccccccccc 

c 

ccccccccccccccccccccccc 



MINI , MAXI 

200) , CA(200) , RA (200) , VEL (200) 



C 

C 



ERASE THE SCREEN 



T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0: 
T2 0 
T2 0 
T2 0 
T 2 0 
T2 0 
T2 0 
T2 o; 
T 2 0 
T2 0 
T2 0 
T2 0 
T2 On 
T 2 Oi, 
T2 Oi 
T 2 On 
T 2 Oi, 
T 2 0 
T2 0]: 
T 2 0 
T 2 0 
T 2 0 
T2 0:, 
T 2 0 : 
T2 
T2 
T 2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0. 
T2 C 
T2 0 
T2 0 
T2 Oi 
T2 0 
T2 0 



0 

C 
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FILE: T2 
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C 

c 

c 



CALL 

CALL 



GS ERSE 
DSTERM 



READ USER OPTIONS 



C 

C 

C 

C 

C 

C 



WRITE (6 ,635) 

READ (5,* [MAP 
IF (IRQ .EQ. 0) 

WRITE (6,63 0) 

READ (5,*) ICT 
DRAW THE X,Y MAP 
THE ROUTINE READS X,Y 



GOTO 19 5 



PAIRS FROM FILE 09. A -2.0,0 INDICATES 
END OF FILE, -0 '.'5, O' INDICATES A MOVE, ALL OTHER VALUES ARE PO- 
SITIVE and Result in a draw to that point. 



195 



RE- INITI ALIZE THE SCREEN 
CALL DSINIT 

CALL WIN (MINX. MAXX, 18000. 
IF (MAP .EQ. 0) GOTO 210 
REWIND 9 



12000 ., 1 ) 



200 

201 



READ 

READ 



9 ,501 



K£AUi9,501) i3A,vji 
CALL GEMOVE (GX,GY) 



READ (9 ,501 



GX ,GY 
GX , GY 



GX,GY 



GOTO 



"if (GX. iT.-l) 

IF (GX. LT.._0)_ GOTO 



CALf GB DR AW (GX, GY) 
GOTO 201 



210 

200 



C 

C 

C 



MARK THE TARGET 



210 



CALL GUNLOC(TARGX,TARGY, 150. | 



C 

c 

c 



CALL G UN IOC ( TA RGX ,T ARG Y, 300 
DRAW TIC MARKS EVERY 2000 MTRS 



215 



DO 215 1=1,8 
jw=2# I 

CALL GBMOVE (1*200 0. , 1000.) 

CALL GBDRAW 1*2000. , 0 . ) 

CALL GAXITC(1,IW c 2, CHARS) 

CALL GBCHAR ( 1 * 20 6 o. ,0.,2. ,0., 2, CHARS) 

IF (I .GS. 6) GOTO 215 

CALL GBMOVE (1000., 1*2000.) 

0 . , 2000 . * 1 ) 

1 , IW , 2 , CH A RS ) 

[-§0. 'l*2000. ,2. ,0. ,2, CHARS) 



GBDRAW 

GAXITC 

GBCHAR 



CALL 
CALL 
CALL 

CONTINUE 
I 1 =MIN Y 
I2=MAXY 
MAXY=MIN Y-15 

C ALL = WT N JMIN X+27 5,MAXX-175,195.j185 

CALL GSFHCE 
M AXY=I2 
MINY=I 1 



maIjks IN 1 0 0 0 " S ' ) 



DEGREES ALONG X AXIS') 



C 

C 

C 



DRAW THE ALTIMETER 



220 



CALL WIN (MINI, MAX 1,350., 2200., 1) 

DO 220 1=2,20,2 

CALL GBMOVE (0..I* 100.) 

CALL GBDRAW (3 50. ,1*100.) 

CALL GAXITC ( 1 , I, 2 ,CHA RS) 

CALL GBCHAR (0. ,1* 10 0. , 2. , 0. , 2, CH A RS) 
225 j — "i ^ 

CALL GBMOVE (1*50. , 100.) 



DO 



T2 

T2 

T2 

T2 

T2 

T2 

T2 



T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 



T2 0 
T2 0 



T2 0 
T2 0 
T2 
T2 
T2 
T2 
T2 
T2 



T2 0 
T2 0 



T2 0 
T2 0 
T2 0 
T2 
T2 



T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 



T2 0 
T2 0 i 



T2 

T2 



0 1 
0 



T2 0 1 
T2 O' 



T2 

T2 



0: 

0.! 

0 



T2 0 
T2 Oi 



T2 Oj 
T2 0 
0 



T2 
T2 O'. 



T2 0, 
T2 0 
T2 0 



T2 

T2 

T2 

T2 



0 

0 

0 

0 



T2 0 
T2 0 



T2 0 
T2 C 



T2 0. 
T2 0 ; 



T2 C 
T2 C 
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FILE: T2 



FORTRAN A 



NAVAL POST3RAD GATE SCHOOL 



225 CALL GBDRAW ( I* 50 . ,0. ) 

C 

C HARK RESET POINT VELOCITY AND ALTITUDE AS OPERATOR AID 
C 

IF (IRQ.NE.O .AND. ICT . GT. 1 ) C ALL GB GDOT ( 9 . , VEL ( ICT) , Z (ICT) ) 
MAXY=MIN Y-15 
MINY=MIN Y-20 0 

CALL WIN (MINI-250, MAX1+650, 195.. 185. ,0) 

CALL GBCEAR( 10., 1 10. .2.0.0.. 19.'ALT MARKS IN 1000"S') 

CALL GBCHAR ( 10. ,60. ,2.0,0. ,29, 'VELOCITY IN 50"S ALONG X AXIS') 
CALL GSFRCE 
MAXY=I2 
MINY=I 1 
501 FORMAT 
630 FORMAT 
635 FORMAT 
650 FORMAT 
RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C SUBROUTINE WIN C 

C THIS ROUTINE DEFINES A WINDOW EXTENDING FROM LX TO MX ON C 

C THE HORIZONTAL AXIS, AND FROM MI NY TO MAXY ON THE VERTICAL C 

C AXIS. THE HORIZONTAL RANGE IS RX, THE VERTICAL RANGE IS RY C 

cccccccccccccccccccccccccccccccccccccccccc ccccccccccccccccccccccc 

SUBROUTINE WIN (LX ,MX , RX , RY , JMP ) 

COMMON/M N/I3 AUD, MIN Y , MAXY 
RE AL*4 W IN 1 ( 4) 

INTEGER* 4 VI (4) 

DATA WIN1 (1) /0./,WIN1 (2) /0./ 

C DEFINE THE WINDOW 

C 

VI (2) = MI NY 
VI (4 =M AXY 
WIN1 (3) = RX 
WIN1 (4) =RY 
VI (1) =LX 
VI (3 =M X 

CALL GAS VIE (VI ,0) 

CALL GAS WIN ( WI N1 ,0) 

IF (JMP .EQ. 0) GOTO 11 
C 

C FLASH THE DEFINED WINDOW 



(2F10. 2) 

(• AT WHICH POINT DO YOU WANT TO RESTART' 
(' VILLAGE: 0 = NOT DRAWN; 1 = VIL LAGE DRAWN' 
(' X,Y,Z,AND VELOCITY' ,4F9. 1) 



ICT = 4 +50* IBAUD 
DO 10 1=1, ICT 

CALL GBMOVE (0. .0.) 

CALL GBDRAW (WIN1 (1) ,WIN1 (4) ) 

CALL GBDRAW (WIN1 3) ,WIN1 (4 
CALL GBDRAW (WIN1 (3[ ,WIN1 (2 
10 CALL GBDRAW (WIN1 (1) ,WIN1 (2) ) 

1 1 RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCC CCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC ccccccccccccccccccccccc 
C SUBROUTINE BEGIN C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCC ccccccccccccccccccccccc 
ccccccccccccc ccccccccccccccccccccccc CCCCCC ccccccccccccccccccccccc 

SUBROUTINE BEGIN 

COMMON/M N/IB AUD, MINY, MAXY, MINX, MA XX, MINI ,MAX1 
CCMMON/OFT/I GU N r IPNCH, IEXT , I S A M, I MP, KER 
C 

C READ USER OPTIONS 
C 

50 WRITE (6 .600) 

READ (5.*) IGUN 
WRITE (6 ,630) 

READ (5,*) IMP 
WRITE (6,635) 

READ (5,*) KER 



T2 C 
T2 0 
T2 0 
T2 0 
T 2 0 



2 u 



T 2 0 
T2 C 
T2 0 
T 2 0 
T2 C 
T 2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 i 
T2 0 
T2 0 
T2 0 j 
T2 0 



T2 

T2 

T2 

T2 



T2 Oi, 
T2 0 
T2 0i 
T2 0 if 
T2 0j: 
T2 0 |: 
T2 0): 



T2 0 
T2 Oj; 



T2 0 
T2 0j, 



T2 0 
T2 0j; 
T2 0 : 
T2 0i 
T2 0i 
T2 0: 
T2 0 : 
T2 0i: 
T2 0 
T2 0! 



T2 0! 
T2 0 :l 



T2 

v2 

T2 



T2 0 
T2 0, 
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FILE: T2 



fortran a naval postgraduate school 





WRITE 




READ ( 




WRITE! 




READ (5 




IF (KO 


600 


FORMAT 


625 


FORMAT 


6 30 


FORMAT 


635 


FORMAT 


640 


FORMAT 



c 

c 

c 



c 

c 

c 



.,625) 

,*) I BAUD 
, 640) 

• ) kon 

’guns?!)=disk file??=terminal :2=PRESET ’) 

PMTD PAT 17 * 0=300 BAUD; 1 =12 6 0 BAUD 1 ) 

2AUD hau. j ^ §^ DI ^ K pile; 1=TSRMINALM 

^RROR CHECKING* 0=NO CHECKING; 1=CHECK FOE ERRORS') 
PLIGHT "SS»EPAE»«ETERS: 0 =DEF HOLT : l-USPB I1IP0T') 

INITIALISE THE GRAPHICS AND CLEAR SCREEN 

MAXX=32 0 0 
MINX=500 
MAX1=MAXX+22 5 
MIN1=M AXX+30 
MAXY=2500 
MINY=700 

COMPUTE THE SCREEN WINDOW COORDINATES 

CALL DSINIT 
CALL GSERSE 
RETURN 
END 



CCCCCCCCCCCCCCCCCCCCCC^ 

CTiBRonTTNF ELFIN (LAST) 



C 

c 

c 

c 

c 

c 

c 

c 

c 



’SUBROUTINE ELFIN (LAST) 

COMMON /OET/IGUN, IPNCH, IE XT , I S A M ,1 MP , KER 
COMMON/MN/ I BAUD , MINY, MA XY , MIN X, M AXX ,MIN1 



MAXI 



CLOSE GRAPHICS ROUTINES 
CALL DSTERM 

OLD <LAST=0) OR NEW (LAST=1) 
IF (LAST .EQ. 0) GOTO 20 
REQUEST USER OUTPUT OPTIONS 



FLIGHT PATH? 



'15 



20 



C 

C 

C 



WRITE (6,595) 

READ (5 ,* ) LAST 
IF (LAST. GE.2 .OR 
LAST= 1 + 82**LAST 
WRITE (6,610) 

WRITEj6 ,620) 

READ (5,*) IPNCH 



LAST.LT.O) GO TO 1 5 



IF MILESTONES CAME FROM DISK, RETURN END OF FILE MARKER 



(LAST .EQ 
__ (IPNCH .E 
IF (IPNCH. EQ 



IF 

IF 



WRITE (6.630) 
READ (5,£) IE XT 



0) LAST= 83 
. 0) RETURN 
) GOTO 100 

o: 



1 00 



590 
595 
600 
610 
6 20 
6 30 
640 



IF (IPNCH 
WRITE (6, 640) 

READ (5 M ISAM 
IF ({ISAM .LT. 1) 
RETURN 

"♦HIT ANY 
ARE YOU 



EQ. 1) RETURN 



OR. (ISAM .GT. 7)) GOTO 100 



FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 



KEY FOR OUTPUT OPTION SELECTION*) 

FINISHED WITH THIS FLIGHTPATH:0=NO; 1-YES ) 
SCREEN OUTPUT: 0=NO OUTPUT: 1=0 UTPUT DESI R -D ) 

OUTPUT ^ILE* 0=NO OUTPUT; 1=P001 FILr. ON^Y') 

OUTPUl tut. 2=MICS FILE ONLY; 3 = P001 S MICE PILES’) 

EXPENDED OUTPUT; 0=NOT WANTED; 1-EXTENDED OUTPUT ) 
MISSILE TYPE BETWEEN 1 AND 7’) 



T2 0 
T2 o: 
T2 0. 
T2 O'. 
T2 0. 
T2 0. 
T2 0. 
T2 0: 

T2 o: 
t2 o: 

T2 0 
T2 0 
T2 0 . 
T2 0 
T2 0. 
T2 0. 
T2 0 
T2 0 
T2 0 
T2 0 
T2 0 



T2 


0 


T2 


0 


T2 


0 


T2 


0 


T2 


0 


T2 


0 


T2 


0 


T2 


0 


T2 


0 


T2 


0 


T2 


0 


T 2 


0 


T2 


0 


T 2 


0 


T2 


Of 


T 2 


0 


T2 


0 


T 2 


0 


T2 


0 


T2 


0 


T2 


0 


T2 


0 


T2 


0 


T2 


0 


T2 


0 


T2 


0 


T2 


0 


•T2 


c 


T2 


c 


T2 


0 


T2 


c 


T2 


c 


T2 


c 


T2 


c 


T2 


c 


T2 


r 

V 


T2 


r 


T2 


c 


T2 


( 


T2 


c, 


T2 


(■ 


T2 


c ; 


T2 


(, 


T2 


c 


T2 


Cl 


T2 




?2 


(, 


T2 


(, 


T2 


(, 


T2 


(, 


T2 


( 
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FILS: T2 



FORTRAN 



NAVAL POSTGRADUATE SCHOOL 



END 

cccccccccccccccccc cccccccccccccccccc cccccc 
cccccccccccccccccccccccccccccccccccccccccc 

CCCCC AIMPT 

cccccccccccccccccc cccccccccccccccccc cccccc 
cccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE AIMPT (I) 
COMMON/TAR/TAPGX , TARGY 



T2 



COMMON/PAR/X (200) ,Y (200) 
... TX ,TX,TX1 ,TYT 



C 

C 

C 



REAL 1 * 4 
TX=X (I) 

ty=y]i) 

TX1=TARGX 
TY1=TARGY 
CALL GSLT (1) 



MOVE TO CURRENT MILESTONE COORDINATES 



C 

C 

C 



CALL G B MCVE (TX ,T Y) 



DRAW DASHED LINE TO TARGET 



CALL GBDBAW(TX 1,TY1) 

CALL GSLT (0) 

RETURN 

END 

CCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCC CCCCCC 

cccccccccccccccccc cccccccccccccccccc cccccc 

CCCCC CONCHG 

cccccccccccccccccccccccccccccccccccc cccccc 
cccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE CONCHG 

COMMON/PAR3/TMD,ACLIFT,CLMAX,WL,TMAX 
COMMON /P AR4/ APPM AX, HTMIN, HTMAX ,SPDMI 
COMMON /TAR/TARGX, TAR GY 



CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT2 
CC CCCCCC CCCCCCCCCCCCCCCCCCCCCCT 2 

CCCCCT2 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT2 
CCCC CCCCCC CCCCC CCCCCC CCCCCCCCCT 2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

CCCC CCCCCC CCCCC CCCCCC CCCCCCCCCT 2 
CCCC CCCCCCCCCCCCCCCCC CCCC CCCCC T2 

CCCCCT2 

CCCC CCCCCC CCCCCC CCCCC CCCCCCCCC72 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT2 

T2 

,CD0,CDK,VMAX1, VKAX2 
N,GMAX,POPMIN 



C 

C 

c 



WRITE INSTRUCTIONS 



30 



WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 



6 , ioo; 

6, 105 



6' 

%• 

6 ' 



GO 



V 



110 
1 15' i 
120 1 
1 25 1 
1 30 1 
135 

™i Ujt 1<lO) 

READ (5,$) K 
IF {(K .IE. 

To (200.2, 

WRITE (6,202) 

READ (5,*) CLMAX 
GO TO 30 
WRITE (6.203) 

READ (5.*) WL 
GO TO 30 
WRITE (6,204) 

READ (5.3) SPDMIN 
GO TO 30 
WRITE (6,205) 

READ (5. ft) GMAX 
GO TO 30 
WRITE (6.2 06) 

READ (5.**) HTMIN 
GO TO 30 
WRITE (6,207) 

READ (5.*) HTMAX 
GO TO 3 0 
WRITE (6.2 08) 

READ (5, rt ) rOP MIN 
GO TO 30 
WRITE (6,209) 



.OR. JK .GT. 17)) GO 
4, 5, 6, 7, 8, 9, 10,1 1,12, 1 



TO 3 0 

3, 14,15, 16,17) ,K 



T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T 2 
T2 
T2 
T2 
T 2 
T2 
T 2 

t> 2 

T 2 
T 2 
T2 
T 2 
T 2 
T 2 
T2 
T2 
T2 
T2 
T2 



0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

o; 

o. 

°o: 

0, 

0, 

0, 

o, 

0 

0 

0: 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

3' 

°0 

0 

0 

0 
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non non non 



FILE: 


T2 FORTRAN A 

REAE (5, =*) APPMAX 
GO TO 30 


10 


WRITE (6,2 10) 

READ (5.*) TMAX 
GO TO 3 0 


1 1 


WRITE (6 .2 1 1 ) 
READ ($.*) CDO 
GO TO 3 0 


1 2 


WRITE (6,2 12) 
READ (5,*) CDK 
GO TO 30 


13 


WRITE (6,2 13) 

REAL (5,*) VMAX1 
GO TO 30 


14 


WRITE (6,2 14) 

REAE (5,*) VMAX2 
GO TO 3 0 


15 


WRITE (6,2 15) 

REAE ($,**) TARGX, 



NAVAL POSTGRADUATE SCHOOL 



16 



GO TO 

READ NEW PARAMETER VALUES FROM THE DISK 
REWIND 16 

READ (1 6, 300) CLMAX, WL , SPD MIN ,GM AX ,HTMIN , H T MA X 
READ (16,300) POPMIN, APPMAX. TMAX , CDO , CDK , V M AX 1 
READ (1 6, 300) VMAX2,TARGX, TAR GY 
GO 10 3 0 

WRITE PARAMETER VALUES TO THE TERMINAL 



17 



WRITE (6,250) 

WRITE(6,300) 

WRITE (6 ,255) 

WRITE (6 ,3 00 i POPMIN, APPMAX ,TM AX , CDO, CDK, VMAX1 



WRITE (6 ,260) 
WRITE (6 , 300' 
GO TO 30 



CLMAX, WL, SPDMIN, GMA X,HT MIN, HT MAX 



VMAX2,TARGX,TARGY 



SAVE PARAMETER VALUES ON DISK AND RETURN TO CALLING ROUTINE 



2 00 



100 
105 
1 10 
1 15 
1 20 
125 

130 
1 35 

1 40 
202 

2 03 
2 04 
205 
2 06 
2 07 
208 

209 

210 
211 
212 

213 

214 
2 15 
250 
255 



REWIND 16 



WRITE (1 
WRITE (1 
W R ITE (1 
RETURN 
FORMAT ( ' 
FORMAT/* SEL 
FORMAT/' 2=M 
FORMAT/* 5=M 
FORMAT i 1 ' 8=D 

FORMAT/' 9=M 
$ LIFT') 
FORMAT (' 12= 

FORMAT (« 14= 

FORMAT/' 16= 
FORMAT/' ENT 
FORMAT/' ENT 
FORMAT/' ENT 
FORMAT/' ENT 
FORMAT/' ENT 
FORMAT/' ENT 
FORMAT/' ENT 
FORMAT/' ENT 
FORMAT/' ENT 
FORMAT/' ENT 
FORMAT t' ENT 
FORMAT/' ENT 
FORMAT/' ENT 
FORMAT/' ENT 
FORMAT/' MAX 
FORMAT f ' POP 



AX,HTMIN,HTMAX 
, CDO , CDK, VMAX 1 



6, 300)CLMAX,WL, SPDMIN, 3M 

6.300) POPMIN, APPMAX, TMAX 

6. 300) VMAX2, TARGX, TARGY 

') 

ECT PARAMETER TO BE CHANGED: 1=NO MORE 

AX LIFT COEFF; 3=WING LOADING; 4=STALL 
AX G FORCE; 6=MIN ALT: 7=MAX ALT(<2200 

ISTANCE TO TARGET BEFORE 

AX APPROACH ALT; 1 0=M AX 



POPUP ALLOWED') 
RATIO; 1 1 = DR AG 



CHANGES ' ) 
SPEED' ) 
MTP.) ') 



T/W 



C0EF- W/0 



) 



LIFT BRAG CONSTANT; 13=M 
MAX SPD W/O BOMB: 15=TAR 

READ PARAMETER FILE; 17 = 
ER MAX LIFT COEFFICIENT' 
ER WING LOADING') 

ER STALL SPEED') 

ER MAX G FORCE ALLOWED’ 
ER MINIMUM ALTITUDE') 

ER MAXIMUM ALTITUDE (LES 
ER MINIMUM DISTANCE TO T 
ER MAXIMUM APPROACH ALU 
ER MAX THRUST TO WEIGHT 
ER DRAG COEFFICIENT FOR 
ER LIFT DRAG CONSTANT’) 
ER MAX SPEED CARRYING A 
ER MAX SPEED AFTER BOMB 
ER TARGET X AND Y COORDI 
CL WING LD STALL SPD 



-UP DIS' 



APPR. HT 



MAX 



AX SPD WITH BOMB') 
GET COORDINATES ') 
LIST PARAMETERS’) 

) 



S THAN 203 0 METERS) ') 
ARGET BEFORE POP-UP A 
TUDE') 

ALLOWED' ) 

ZERO LIFT') 



BOMB' ) 

IS RELEASED') 
NATES') 

MAX G MIN.HT. 
THRUST CDO DRAG 



M AX.HT. * 
CONSTANT 



T2 


0^ 


T2 


0 i 


T2 


OL 


T2 


Oi 


T 2 


0 t 


T2 


Oi 


T 2 


0 i 


T2 


Oi 


T2 


Oi 


T2 


Oi 


T2 


Oi 


T2 


Oi 


T2 


Oi 


T2 


ot 


T2 


Oi 


T2 


Oi 


T2 


Oi 


T2 


Oi 


T2 


0 1 


T2 


Ot 


T2 


Oi 


T2 


Ot 


T2 


0‘ 


T2 


ot 


T2 


Ot 


T2 


ot 


T2 


ot 


T2 


Oi 


T2 


ot 


T2 


ot 


T2 


0( 


T2 


Of 


T2 


0< 


T2 


ot 


T2 


Of 


T2 


Ot 


T2 


Of 


T2 


ot 


T2 


Of 


T2 


Of 


T2 


Of 


T2 


Of 


T2 


Of 


T2 


Of 


T2 


0; 


T2 


Of 


T2 


0 


T2 


0: 


T2 


0 


T2 


0 


T2 


0 


T2 


0 


T2 


0 


T2 


0 


T2 


0 


T2 


O' 


T2 


0 


T2 


0 


T2 


O' 


T2 


Oi 


T2 


0, 


T2 


0| 


) T2 


Oi 


T2 


0, 


12 


0! 


T2 


Oi 


T2 


0 


12 


0, 


T2 


0 


T2 


0 


) T2 


0 


T2 


0 
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nnn 



FILE: T 2 



FORTRAN A 



NAVAL POSTGRADUATE SCHOOL 



*BAX SPD WITH 30MB') 

260 FORMAT (' MAX SPD W/O 30MB 
300 FORMAT (6 F12. 4) 

END 



TARGET X COORD. 



TARGET Y COORD. •) 



rrrrrr §^2 rrccccccccccccccccccccc ccccccccccccccccccccecccccccccccc 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
i: cnoDnriTTMP FPPMK C 



cccccccccccccccc?ccccc^c?ccccccccccccccccccccc ccccccccccccccccccc 
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

rnoonmi T M T? TTD'DMK’ 



C0MM0N/MN/ E I BAUD^INY^ MAXY,.MINX f M AXX t MINl t MAX1 



E 200) f tY j26of ^Z # (2 00| r HDG^( 200) , 6 A (20 0) ,RA(200),VEL(200) 
COMMON/PAR'l/XpOT ($00), YDOTJ200) ,ZD0T (200) , MNUM , M3R 



COMMON/P AR/X 

COMMON/PAR 1/ * , , 

COMMON/ERR/M KERX (3) , MKER Y (15) 
IF (ISRR .GT. 20) GOTO 85 

FLASH THE PROMPT WINDOW 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 



75 
85 
601 
602 
6 03 

604 

605 

606 
607 
6 08 
6 09 



CALL WIN (MKERX (1) , MKERX (2) ,2100., 1 85., 1) 

CA GOTo1l?2 E 3 t 4 t 5,6,7,8,9,10, 1 1 , 12 , 1 3, 1 4 , 15, 1 6, 17,18,19,20) , IERR 
WRITE(6,601) 



RETURN 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT , 
FORMAT ( 
FORMAT ( 



GOTO ^ 5 
WRITE(6, 602) 

GOTO 75 
WRITE(6, 603) 

GOTO 7 5 
WRITE(6, 604) 

GOTO 7 5 
WRITE(6, 605) 

GOTO 75 
WR ITE ( 6 ,606) 

GOTO 7 5 
WRITE (6, 607) 

GOTO 7 5 
WRITS(6, 608) 

GOTO 7 5 
WRITE ( 6 , 60 9) 

GOTO 7 5 
WRITE(6, 610) 

GOTO 7 5 
WR ITE ( 6,61 1) 

GOTO 75 
WRITE(6, 612) 

GOTO 75 
WRITE (6,61 3) 

GOTO 85 
WRITE(6, 614) 

GOTO 85 
WR ITE (6,615) 

GOTO 85 
WRITE(6. 616) 

GOTO 85 
WRITE( 6, 617) 

GOTO 7 5 
WRITE(6, 618) 

GOTO 75 
WR ITE (6.61 9) 

GOTO 85 
WRITS(6. 620) 

GOTu 8 5 

WRITE (6 , 650) X(MNUM) ,Y (MNUM) ,Z( MNUM) ,VSL(MNUM) 



MAXIMUM BRAKING EXCEEDED’) 
MAX G EXCEEDED’) 

ALT TOO LOW’) 

ALT TOO HIGH' ) 

ST’A l l i \ 

POP-UP TOO LOW* ) 

BMB DROP LOW’) 

BMB DROP HI’) 

TOO FAR FM TGT’ ) 



T2 ( 
T2 ( 
T2 ( 
T2 ( 
T2 ( 
T2 r 
T 2 ( 
T 2 ( 
T2 ( 
T2 ( 
T 2 ( 
T2 ( 
T2 ( 
T2 ( 
T 2 ( 
T2 ( 
T 2 ( 
T 2 ( 
T2 ( 
T 2 ( 
T2 ( 
T 2 C 
T2 ( 
T 2 ( 
T 2 ( 
T 2 ( 
T2 ( 
T 2 ( 
T2 ( 
T2 ( 
T2 ( 
T2 ( 
T2 ( 
T 2 ( 
T2 < 
T2 ( 
T2 ( 
T2 ( 
T2 ( 
T2 ( 
T2 f 
T2 ( 
T2 ( 
T2 ( 
T2 
T2 i 
T2 ( 
T2 ( 
T2 ( 
T2 < 
T2 < 
T2 ( 
T2 * 
t? ( 

T2 < 
t< 2 I 

T2 ( 
T2 1 
T2 < 
t> 2 i 
T 2 i 



T2 : 
T2 ( 
T2 * 
V2 < 
T2 < 
T2 
T2 i 

T’O 



T2 

T2 

T2 
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FILE: 


T2 


610 


FORMAT 


6 11 


FORMAT 


6 12 


FORMAT 


6 13 


FORMAT 


6 14 


FORMAT 


615 


FORMAT 


616 


FORMAT 


617 


FORMAT 


618 


FORMAT 


6 19 


FORMAT 


6 20 


FORMAT 


650 


FORMAT 




END 



FORTRAN A NAVAL POSTGRADUATE SCHOOL 

HDG>5 DEG TO TGT ' ) 

FINAL RUN<2 .33 SEC') 

NO HORIZONTAL MOTION') 

TOO CLOSE TO TGT') 

ENTER MISSILE LOCATION') 

ENTER MILESTONES') 

ENTER GUN LOCATIONS') 

MAX LIFT EXCEEDED') 

MAX THRUST EXCEEDED') 

do C ?ou D want E to 2 fix T the ERRDR:0=NO,USE THE POINT; 1=YES') 
X,Y,Z,AND VELOCITY' ,4F9. 1) 



T2 


0 ! 


T2 


0‘ 


T2 


O' 


T2 


0? 


T2 


0‘ 


T2 


0: 


T2 


0' 


T2 


0 


T2 


0‘ 


T2 


0; 


T2 


0‘ 


T2 


0‘ 


T2 


O' 
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APPENDIX E 



SCENE PROGRAM LISTING 



50 



2 00 
201 

300 

301 



500 

501 
600 



DIMENSION LI MX (4) ,LIMY (4) 
CALL INIT 
WRITE ^6^600^ 



READ (5 , *5) 
ONE=-0. 5 



| I :!1 

(0.375) 

(4.375) 



TWO=-2. 0 
2ERO=0. 0 
M AXX=KI N 
M INX=K I N 
MAXY=KI N 
MINY=KIN . 

M AXY=777-MAX Y 
MINY=777-MINY 
READ (5,$)QT 
CALL NEWFAG 
CALL MOVABSl 
CALL DRWABSl 
CALL DRWABSl 
CALL DRWABSi 
CALL DRWABSl 
CALL DWINDOi 
CALL TWINDO 
IP (II.GT.O) 

READ (9 , 501) 

READ (9 ,501) 

CALL MOVEA(X,Y) 

READ (9, 501) X, Y 
IF (X.LT.-1) GOTO 
IF (X.LT. 0) GOTO 
CALL DRAWA (X, Y) 

GOTO 201 

WRITE (9. 501) ONE, ZERO 
CALL VCURSR(LTR,X,Y) 
CALL POINTA ( X, Y) 

WRITE (9.501) X, Y 

VCO&SR(LTR,X,Y) 



MINX , MINY) 

MI NX, MAX Y) 

M AXX, MAXY) 

M A XX, MI NY) 

MINX. MINY'i 

0 . , 18000 . , 0 . , 12000 .) 
(MINX,M AXX, MINY, MAXY) 
GOTO 300 
X, Y 
X , Y 



300 

200 



CALL 

CALL DRAWA (X,Y) 
WRITE (9,501) X, 
IF ( LTR.EQ.77) 
IF (LTR .NE. 83 



WRITE (9 
CALL FIN 
FORMAT (217) 
FORMAT ( 2 FI 0 



Y 

GOTO 300 
GOTO 301 



FORMAT (• 
STOP 
END 



,501) TWO, ZERO 



2 ) 



ENTER positive integer for 



RESTART’ ) 
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